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Die neuen Drei: 


Conspater-lxl 



Computer 1 x 1 

Was Sie schon immer über Com¬ 
puter wissen wollten, steht in die¬ 
sem SPECIAL Sie erfahren nicht 
nur alles Wissenswerte über die 
verschiedenen Anwendungsberei¬ 
che, sondern lernen auch spielend 
mit Computern umzugehen. 
Durch einen Schnellkurs, ein Le¬ 
xikon und Programmierbeispiele. 



Taschenrechner 

In diesem SPECIAl finden Sie 
zahlreiche Details von Taschen¬ 
rechnern, die selbst bei den mei¬ 
sten Rechnerherstellern noch 
nicht bekannt sind. Mit über 30 
Bauanleitungen, Software-Tips 
und einführende Beiträge über 
die Programmierung von UPN- 
und AOS-Rechnern runden das 
Themenspektrum ab. 



Hardware-Katalog 

Ein ideales Nachschlagewerk für 
alle, die sich einen umfassenden 
Überblick über die wichtigsten 
zur Zeit angebotenen Mikrocom¬ 
puter, Taschenrechner und Peri¬ 
pheriegeräte verschaffen wollen. 
Detaillierte Marktübersichten mit 
Preisangaben und Tips für die 
richtige Geräteauswahl sind 
wichtige Entscheidungshilfen. 


Die besten Ideen aus der Welt der Mikrocomputer, für Sie gesammelt - in der CHIP-SPECIAL-Reihe: 


Mikrocomputer-Digest 

Das Beste von CHIP über Mikroeompu- 
ter-Grundwissen. Programmierung und 
Programme, Testberichte Personal¬ 
computer und Taschenrechner, Selbst¬ 
bauanleitungen, Mikrocomputer-An¬ 
wendung. Außerdem ein Computerkurs. 


Programme I 

für Personal-Computer und Taschen¬ 
rechner. Über 100 Seiten Programme 
mit Beschreibungen, Flußdiagrammen 
und Listings für Haus, Freizeit und 
Schule. 


Computergrafik 

Grundlagen, lechniken, Anwendungen 
(Beispiele aus Kunst, Industrie, Archi¬ 
tektur, Werbung und Hobby) und Zu¬ 
kunftsaussichten. Mit über 200 herrli¬ 
chen, meist mehrfarbigen Abbildungen, 


Bauanleitungen für Mikrocomputer 

Die besten Ideen, einen Computer aus¬ 
zubauen, zu erweitern und optimal zu 
nutzen. 

Für AIM-63, Apple, CBM, TRS-80 


Mikroprozessoren 

Eine komplette Übersicht des Mikro¬ 
prozessorenangebots. Ausführliche Be¬ 
schreibung von Daten, Anschlußbele¬ 
gungen, Innenschaltuimen usw. von 


Programme II 

für Personal-C^imputer und Faschen- 
rechner. Über 150 Seiten Inhalt: Pro¬ 
grammierhilfen, Spiele, kaufmännische 
und naturwissenschaftliche Anwendun- 


u.a. 

Speicherbausteinen wie RAM, ROM 
und EPROM. Dazu die gesamte Sv- 
stemperipherie. 

gen, Grafik, Tips und Tricks. 

1 Bitte ausschneiden und einsenden an: 

1 

1 Ich bestelle folgende CHIP-SPECIAL 

1 zum Preis von 24 - DM*, Aus'and 

1 30,-DM*: 

1 

1 Lieferanschrift 

1 

CHIP Leserservice. Postfach 67 40, D-8700 Würzburg 

Anzahl Titel 

Hardware-Katalog 

Bestell-Hr. 

730 

1 


Computer 1 x 1 

720 

1 


Taschenrechner 

714 

1 

1 Name/Vorname 

1 


Bauanleitungen für 
Mikrocomputer 

712 

1 Straße, Postfach 


Computergrafik 

702 

1 


Proaramme II 

701 

1 PLZ/Ort 


Mikroprozessoren 

071 

1_ 


Proaramme 1 

669 

1 Datum/Unterschrift 


Mikrocomputer-Digest 

66cS 


I^Zuzüglich 3.50 DM Versandkosten-Anteil. Inlandspreise inkl. MwSt. 


Empfehlung: Coupon fotokopieren, damit Sie nichts zerschneiden müssen! 















































zu DIESEM HEFT 


Noch nie hat ein Microcomputer einen so 
durchschlagenden Erfolg gehabt, wie der ZX 
81. Die Verkaufsziffern beweisen das. 
Weltweit steht das kleine schwarze Gerät in 
über 600.000 Haushalten. 

Der Wunsch, sich mit Computern auseinander¬ 
zusetzen - zu verstehen, was ein Computer 
leisten kann und wo seine Grenzen liegen, 
wurde noch nie so oft geäußert wie heute. 

Computer beginnen, unsere Welt zu verän¬ 
dern, in einer Weise, wie wir sie heute 
kaum absehen können. Umsomehr ist es wich¬ 
tig, sich mit diesen Dingen zu befassen. 

Der ZX 81 war für viele'ein Einstieg. Durch 
seine Vielseitigkeit und seinen überaus 
günstigen Preis wurde der ZX 81 auch von 
Leuten gekauft, die sich noch nie mit Com¬ 
putern befasst hatten. 

Manche, die sich ernsthaft oder beruflich 
mit Computern beschäftigen, lächeln milde 
über das kleine Schächtelchen mit der Fo¬ 
lientastatur. Wir nicht. Wir glauben viel¬ 
mehr, daß es sinnvoll ist, dem ZX-Anwender 
interessante Programme zu geben. 

Sie finden in diesem Heft eine bunte 
Mischung an ausgewählten ZX 81-Programmen. 
Manche von Ihnen, die wir für Sie in 
England eingekauft haben, sind in der Ori¬ 
ginalsprache abgedruckt. Alle Programme in 
diesem Buch sollen Sie anregen zu neuen, 
eigenen Ideen. Ändern Sie die Programme, 
schreiben Sie sie neu! Versuchen Sie, das 
Beste aus Ihrem ZX 81 herauszuholen. 

Viel Spass beim Programmieren wünscht Ihnen 


Ihre CHIP-Redaktion 





Spiele 


Gejagt 


1K 


Sie werden vom Computer gejagt! 

Sie müssen ihr Sternchen mit den Pfeil¬ 
tasten über den Bildschirm steuern und 
darauf achten, daß Sie der Computer nicht 
erwischt. Die Zeit, die Sie dem Computer 
entkommen konnten, wird am Bildschirm 
angezeigt. 

S LET 

10 LET Bs=© 

15 LET C=15 

a© LET D=s20 

154-36,255 

22 164-37.255 

11 ^ 

60 IF gJc ThIn uIt Biol'i 

fl 1:1; |Eir:i 

76 PRINT RT R.B; 

©0 LET ft$=INKEva 

-- -- - 


- (1 « 


ND R$=”S"V ^ fiND R$ = " 8 *') 

ND^R$ = "7*.f R 

10© GOTO 4-0 

^PEEK*^ 164*37164-38-256 


5 LET R=1 
1© LET B=0 
15 LET 0=15 
S© LET D=:1S 
25 LET E=© 
30 PRINT RT 
35 PRINT RT 

4©- 

4.5 


R 

C' 


B 

D 


‘ 


50 

55 

5© 

S5 


LET B=B-i-INT CRND^e^B-l) 
+ INT { RND -äf 5 -1) 

TF P>al THEN LET R=21 
IF B<0 THEN LET B=0 
IF B>31 THEN LET B=31 


, , - LET D =D + f1 RND 

<1 RND INKEY$ = ”5"» 
75 LET C=C•^(1 RND 
<1 RND 1NKEY$="7“) 
SO IF fi=C RND E=D 

+ 1 

SB CLS 

90 PRINT RT 0,0; E 
95 GOTO -30 


INKEY$=“S")- 
1NKEY$ = '.6") - 
THEN LET E=E 


Sechs verliert 


16K 


Jagd 


1K 


Das ist genau das Gegenteil vom "Gejagt"- 
Spiel. Diesmal muß der Computer vor Ihnen 

funktioniert wieder 
mit den Pfeiltasten. In der linken oberen 
Bildschirmecke wird die Anzahl Ihrer Tref¬ 
fer angezeigt. 


0 




Dieses Spiel ist für beliebig viele Perso¬ 
nen. Jeder Spieler wirft zwei Würfel. Wer 
gerade dran ist, darf solange würfeln wie 
er möchte. Wer zuerst die Punktezahl 100 
erreicht oder sie sogar übertrifft, hat 
gewonnen. 

"^ch jedem 

Wurf die kribblige Frage: Weiterwürfeln 
oder warten... 

Einzige Schwierigkeit: Wer auch nur mit 
einem Würfel eine 6 wirft, bekommt in die- 
ser Runde keinen Punkt gutgeschrieben, 
verliert also die Gesamtaugenzahl, die er 
in dieser Runde bisher gewürfelt hatte. 


5 CLS 

.. 10 PRINT TRB 4.; "SECHS UERLTERT 
20 PRINT TRB 4-; 

6© PRINT 

FELN SIE^^MIT""* DIESEM SPIEL UUER 
RlI" "ZUEI UUERFELN SOOFT 

RHLEN"'^^^''' "«oeglich.die PUNKTEZ 

,,70 PRINT "WERDEN DRBEI RDDIERT 
SO PRINT 

90 PRINT "SOLLTEN SIE RBER MIT 
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Spiele 


EINEM DER- 

100 PRINT “UUERFEL ODER GRR MIT 
SEIDEN" 

110 PRINT "EINE SECHS UERFEN^30 
VERLIEREN" 

120 PRINT "SIE RL.L.E BISHER GEUO 
NNENEN" 


130 

PRINT 

TRB 

7;"PUNKTE." 

140 

PRINT 




150 

PRINT 

TRB 

5;"UIEL 

GLUECK" 

160 

PRINT 




1T0 

PRINT 




160 

PRINT 

"DRÜECKEN SIE N/L" 

IGO 

INPUT 

R$ 



20© 

LET H 

= 0 



21© 

LET P 

= 0 



22© 

CLS 




23© 

LET R$="" 



240 

PRINT 

.* .• .» j» 

"WOLLEN 

SIE";R$ 


UUERFELN (ü ,'N) T " 


250 INPUT R$ 

250 IF CODE R$<>4.7 THEN GOTO 5© 

0 

2S5 CLS 

270 PRINT "DIE UUERFEL UERDEN K 
RREFTIG IM" 

2Ö0 PRINT "BECHER GESCHUETTEL.T 
«• 

"äs© L.ET = “ NOCH EINMfiL." 

300 LET fi=XNT (RND#6+1) 

3X0 LET B=INT (RND*6+1J 
3ae FÜR 1=1 TO lO 
33© NEXT 1 
34© PRINT 

3S0 PRINT “JETZT FRLLEN SIE ... 

360 FOR 1=1 TO 5© 

370 NEXT I 
3S0 CLS 

390 PRINT “DIE UUERFEL SIND GEF 
RLLEN.“ 

400 LET X=2 
405 LET C=R 
410 GOSUB 1000 
415 LET C=B 
42© LET X=15 
425 GOSUB 1000 

430 IF R=6 OR B=6 THEN GOTO 550 
44© LET P=P+R+B 

12.0; "IHR STRND BE 

TRflEGT “.;P 
430 LET H=H+R+B 
43© GOTO 240 
500 CLS 

510 PRINT "NR GÜT,DRNN HRLT NIC 


52© PRINT 

525 PRINT "SIE HRETTEN ";H-P:" 
PUNKTE MEHR" 

530 PRINT “ERREICHEN KOENNEN." 
540 GOTO 60© 

550 PRINT RT 12.. ©.. "SIE HRBEN LE 
IDER UERLOREN." 

560 LET P=0 
37© GOTO 460 


O00 PRINT RT 5,0;"WOLLEN SIE ES 
NICHT DOCH NOCH" 

610 PRINT "EINMRL UERSUCHEN (U/' 
N) 7" 


62© INPUT R$ 

S30 IF CODE THEN RUN 

S4.© STOP 

1O00 GOTO C^t20 + 1000 
1020 PRINT RT S^X+S; 

1030 RETURN 

104.0 PRINT RT 

1045 PRINT RT 8.X+6;"B" 

X0S0 RETURN * 

1060 GOSUB 1040 


1065 

GOSUB 

1020 

1370 

RETURN 



1060 

GOSUB 

1040 

1065 

PRINT 

RT 

8.. X; "* 
2, X +6; 

102© 

PRINT 

RT 

10G5 

RETURN 



1100 

GOSUB 

1080 

1105 

GOSUB 

1020 

1110 

RETURN 



1120 

GOSUB 

1080 

1130 

PRINT 

RT 

2..X+3; 

1140 

PRINT 

RT 

8>X+3.; 

1150 

RETURN 




SECHS UERLIERT 


IN DIESEM SPIEL. UUERFEL.H SIE MIT 
ZUEI UUERFELN SOOFT RLS 
HOEGLICH.DIE PUNKTEZRHLEN 
UERDEN DRBEI RDDIERT. 

SOLLTEN SIE RBER MIT EINEM DER 
UUERFEL ODER GRR MIT BEIDEN 
EINE SECHS UERFEN,SO VERLIEREN 
SIE RLLE BISHER GEWONNENEN 
PUNKTE. 

UIEL GLUECK 


DRÜECKEN SIE N/L 

DIE UUERFEL SIND 6EFRLLEN. 


IHR STRND BETRREGT 7 

WOLLEN SIE NOCH EINMRL UUERFELN 
Cü/N)7 


Memo 1 6K 


Auf dem Bildschirm erscheinen kurze 
Zeit verschiedene Tiernamen (oder, wenn Sie 
das Programm ändern, auch andere Begriffe). 

Sie haben nur ganz kurz Zeit, sich die 
zufällig am Bildschirm verteilten Begriffe 
zu merken, die Sie dann möglichst alle 
richtig eingeben sollen. 
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Spiele 


Die Zeitdauer, während der die Begriffe zu 
sehen sind, bestimmen Sie in der von den 
Zeilen 290 und 300 gebildeten Schleife. 

In Zeile 5 sind alle Begriffe gespeichert, 
die ausgedruckt werden können. Je nach Lust 
und Speicherplatz können Sie die Liste 
beliebig ändern oder erweitern, wobei 
jedoch zu beachten ist, daß die neuen Be¬ 
griffe nicht länger als 10 Buchstaben und 
mittels Beistrichen voneinander getrennt 
sind. 



10 l-ET D=L.EN D$ 

15 LET B=-l 
20 FOR 1=1 TO D 

25 IF D$CI)="," THEN «_ET B=B + 1 
30 NEXT I 
35 LET Z=2 

40 DIM fl$(Z,10) 

50 DIM Z (Z) 

60 FOR 1=1 TO Z 

70 LET ZtI)=lNT <RND*B+1) 

60 NEXT I 
90 FOR 1=1 TO Z 
10© LET 3=0 
110 LET B* = ”*‘ 

120 FOR J=1 TO Z(I) 

140 LET 3=3+1 _ 

150 IF D*(S)<>"," THEN GOTO 140 

155 IF 5>D THEN LET 3=1 

160 NEXT J 

165 LET 3=3+1 

170 LET BSi=B$+D$<3) 

1S0 LET 3=3 + 1 ___ , 

190 IF D$ <3) =*’,•* THEN GOTO 210 
195 IF S>D THEN LET 3=1 
200 GOTO 170 
210 LET ft*(I)=B$ 

220 NEXT I 
230 3LOU 

240 FOR 1=1 TO Z 

250 LET X = INT mND+21) 

260 LET Y=INT <RND*26) 

270 PRINT RT X,Y;R$<IJ 

280 NEXT I 

290 FOR 1=1 TO Z«5 

300 NEXT I 

310 CLS 

320 PRINT "GEBEN SIE DIE BEGRII 
FE,DIE SIE" __ _ 

330 PRINT "SICH GEMERKT HOBEN,E 
IN,DRNN NyL" 

335 PRirTT 
340 DIM R tZ> 

345 DIM C*{10) 

350 FOR 1=1 TO Z 
360 INPUT C$ 

370 IF C*=" " THEN GOT 

O 450 

380 PRINT C$, 

385 LET F=0 
390 FOR J=1 TO Z 


400 IF fl$(J)=C$ THEN PRINT "RIC 
HT IG" 

410 IF R$(U)=C$ THEN LET F=1 
415 IF F=1 THEN LET fi{I)=l 
420 NEXT U 

430 IF F=0 THEN PRINT "LEIDER F 
RLSCH" 

440 NEXT I 
450 PRINT 

460 PRINT "DAS WAREN DIE BEGRIF 

FE ; " 

465 LET F=0 
470 FOR 1=1 TO Z 
475 LET F=F+1 
430 PRINT R*<I).; 

485 IF F.'3 = INT (Fy-S) THEN PRINT 

490 NEXT I 
500 PRINT 
505 PRINT 

510 PRINT "DAS HABEN SIE SICH G 
EHERKT;" 

520 LET F=0 
530 FOR 1=1 TO Z 

540 IF A<I)=1 THEN PRINT A$(X), 
550 IF A<I)=1 THEN LET F=F+1 
560 IF F,-'3 = INT CF/'S) THEN PRINT 

570 NEXT I 

575 IF F<>Z THEN GOTO 750 

580 FOR 1=1 TO 100 

590 NEXT I 

595 CLS 

600 LET Z=Z+1 

610 IF Z>6 THEN GOTO 640 

620 FAST 

630 GOTO 40 

640 PRINT "SIE HABEN SICH SECHS 
BEGRIFFE" 

650 PRINT "GEMERKT. BRAU 

O" 

660 PRINT 
670 PRINT 

680 PRINT "WOLLEN SIE NOCHEINMA 
690 INPUT U* 

700 IF CODE U$=4.7 THEN GOTO 35 
710 CL.S 

720 PRINT RT 10,0; •’RUF UIEDERSE 
HEN“ 

730 STOP 
7S0 CLS 

760 PPINT ,.,,**DRS GING LEIDER 
DRNEBEN. 


GEBEN SIE DIE BEGRIFFE^DIE SIE 
SICH GEMERKT HRBEN,EIN,DRNN N/L 


KRTZE 

UURM 

QIRRFFE 

ZEBRR 


RICHTIG 

RICHTIG 

RICHTIG 

RICHTIG 


DRS URREN DIE BEGRXFf=:E: 

UURH ZEBRR KRTZE 

GIRRFFE 

DRS HRBEN sie sich gemerkt: 
UURM ZEBRR KRTZE 

GIRRFFE 


Sinclair Programme 



Spiele 


Nim-Spiel 1K 


Das ist das bekannte “Nim"-Spiel in einer 
etwas abgemagerten IK-Version. 

Gespielt wird mit 17 Hölzchen (vom Com¬ 
puter als Sternchen dargestellt). Ab¬ 
wechselnd wird gezogen, wobei zwischen 1 
und 3 Hölzchen entfernt werden dürfen. 

Wer das letzte Hölzchen nimmt, hat ge¬ 
wonnen. Obwohl der ZX 81 immer beginnt, 
haben Sie trotzdem Gewinnchancen, wenn Sie 
keinen Fehler machen. 


5 LET R=17 

lO ct_s 

15 FOR 1=1 TO R 
20 PRIMT 
25 NEXT I 
•30 PRINT 
35 PRINT 

4.0 PRINT "UIEUIELE 
4.5 INPUT B 
50 IF B^i OR B.-.-3 DR 
HEN GOTO 4-5 

55 PRINT B 
50 L.ET R=ft-S 

55 IF R < =0 THEN GOTO IJ 
70 IF R=4. THEN GOTO SO 
75 IF R<4. THEN GOTO HO 
SO LET C = INT (RND»3 + 1.1 

85 PRINT "ICH NEHME ";C 
90 LET R=R-C 

35 FOR 1=1 TO 
lOO ^SE5<T I 
105 GOTO 10 
11© PRINT "ICH 


f1-3)?" 

B < :»INT B T 


O 


50 


GEUINNE" 
115 -STOP 
120 PRINT 


NEHME 




UND 


"SIE HRSEN GEWONNEN" 


UleulELE t1-3)T 
ICH NEHME 1 


Ambassador 16K 


Mit einfachen grafischen Mitteln des ZX 
81 wurde hier versucht, einen Spielauto¬ 
maten modernen Typs nachzubilden. 

Die Features sind zahlreich: für jede Walze 
besteht eine "Hait"-Möglichkeit. 

Um einen neuen Durchgang zu starten, drük- 
ken Sie die "0"-Taste, um die Walze anzu¬ 
halten die entsprechende Zahlentaste (die 
Walzen sind von 1 bis 4 durchnumeriert). 


Bei einem Gewinn können Sie "Gambein". Sie 
geben dazu den gewünschten Faktor ein oder 
- wenn Sie darauf verzichten wollen - "C". 
Am Beginn des Programms können Sie Ihr 
Startkapital und den Einsatz pro Spiel 
wählen. Wollen Sie Ihren Einsatz während 
des Spiels ändern, geben Sie "E" und an¬ 
schließend die neue Höhe des Einsatzes ein. 



10 REM 

15 PRINT 

RMB" 

•• GEWINNTRBEL 

LE 

B 

B B 


B 

KIRSCHEN-2.. 

• 4 • • •lO• 


. » .20 

ORRNGEN. 



. , , 10 

ZITRONEN.... 



. . . lO 

PFLRUMEN..-. 



. . .20 

GLOCKEN..... 



. . .20 

KüERBISSE... 



. . .20 

BIRNEN...-.. 



« . « 20 

REPFEL...... 



. . .20 

..•••. 



S+200 

B. 



. . 100 

B5.... 



. .200 

BBB. ........ 


ff 

..30O“ 

16 PRINT 

RT 15^0; ‘‘BEI 

••••4.XBBB- 

t9 

BONUS 1500^ 



17 FOR I 

=1 TO 500 



18 

NEXT 

' I 


19 

CLS 



20 

PRINT RT 

0^7; 

ZX-Bl'"*" 



25 

PRINT RT 

3,0; 

STRRTKRPITRL 

EIN" 

26 

SLOU 


30 

INPUT K 


32 

LET 

LU=0 


35 

PRINT RT 

3,0; 

N SIE PRO 

t SPIEL7 

38 

INPUT E 


4.0 

IF E>10 THEN 

41 

CLS 



42 

LET 

ü=:0 


43 

LET 

NO=:0 


44 

LET 

LG=rO 


45 

LET 

F=0 


46 

LET 

R=0 


47 

LET 

G=0 


48 

LET 



^49 

LET 

G$=JJ 

1 ft 

^50 

^T 




(MRX.=10)" 


51 LET 0$ = ‘ 

52 *LET R$ = *^ 

53 LET 0$=* 


I 

I 


I 

I 


54. LET M=0 
105 DIM H<3) 
ilO DIM P(12) 

24.0 FfiST 

24.1 FOR 1 = 1 TO 12 

24.2 IF K<=0 THEN PRINT RT 2,10; 
"KRPITRL RUS." 

24.3 IF K<=© THEN LET LU=0 
24.4. IF K<=0 THEN GOTO 20 
249 LET Y=INT (RND»1800)+1 

251 LET Z=1 

252 IF Y>80 THEN LET 2=2 

253 IF Y>330 THEN LET 2=3 

254 IF Y>580 THEN LET 2=4 
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255 

IF 

Y>730 THEN LET Z 

=5 

256 

IF 

Y>SS0 THEN LET Z 

=6 

257 

IF 

Y >1030 

THEN 

LET 

Z=7 

258 

IF 

Y >1180 

THEN 

LET 

Z = S 

259 

IF 

Y>1330 

THEN 

LET 

Z=9 

260 

IF 

Y >1430 

THEN 

LET 

Z = 10 

261 

IF 

Y>1580 

THEN 

LET 

Z = ll 

262 

IF 

Y>1730 

THEN 

LET 

Z = 12 

300 

LET P(I)= 

Z 



305 

IF 

P eil) >8 THEN 

t LET 

P eil) =X 


NT (RND^S)+1 
31© NEXT I 
315 LET G=© 

330 CLS 

34.0 PRINT ftT 0.0; 

I .. 1 * f - 

34.7 FOR 1 = 1 TO 16 

34.8 PRXHT RT I^0;O4 

34.9 NEXT I 

355 PRINT RT 5.0;M*;RT 11.0;M* 


362 FOR 1=6 TO lO 
364 PRINT RT 1,0;R$ 

366 NEXT I 
370 FOR 1=1 TO 12 
375 GOSUB 80©0~10«^I 
385 NEXT I 
425 LET K=K-E 

430 PRINT RT 18,0;"EINSRTZ:";E; 
RT 18,21; ••STRND: '‘jK; 

440 SLOU 
490 GOTO 3000 

500 IF P (2X = (P (5X +P {B> +P (11> X 
RND P(5)=P(8) RND P(8)=P(2) THE 
N GOTO 2000 

510 IF P (2) = (P (5) +P <S) ) y2 RND P 
(5)=P(SX RND P(S)=P(2jr THEN GOTO 
2200 

520 IF P (5) = (P (8) +P ( 11) ) /2 RND 
P(5)=P(S) RND Pf5)=P(ll) THEN GO 
TO 2200 

530 IF P(2)=l RND P(5)=1 THEN G 
□TO 2400 

540 IF PCS)=1 RND P(ll)=l THEN 
GOTO 240© 

550 IF P(2)=l RND P<11)=1 THEN 
GOTO 2400 

560 IF. P(2)=l OR P(ll)=l THEN G 
OTO 2410 
563 LET H=0 

565 IF G>0 THEN GOTO 2700 
570 GOTO 3500 

2000 IF P(2)=12 THEN LET M=300 
2810 IF P(2)=ll THEN LET M=200 
202© IF P(2>=1© THEN LET H=100 
2040 IF P(2)=8 OR P(2)=7 OR P(2) 
=S OR PC2)=5 OR P(2)=4 THEN LET 
H=20 

2050 IF P(2)=3 OR P(2)=2 THEN LE 
T H = 10 

2060 IF P(2)=l THEN LET M=20 
2070 GOTO 2700 

2200 IF P(5)=12 OR P(5)=ll OR PC 
5)=10 THEN LET M=40 

2230 IF P(5)=S OR P(5)=7 OR P(5) 
=6 OR PCS)=5 OR PCS)=4 OR PC5)=1 
THEN LET H=10 

2240 IF PCS)=3 OR PC5)=2 THEN LE 
T M=4 

2250 GOTO 2700 
2400 LET M=4 
2405 GOTO 2700 
2410 LET M=2 
2420 GOTO 2700 

2700 IF G<=M#E THEN LET G=M#E 

2710 PRINT RT 20,0;G$; 

2711 PRINT RT 21,0;G$; 


2712 PRINT RT 19,0; *• 


2713 PRINT RT 19,9; "B“ ;RT 19,12; 
"M";RT 19,18; "B”; 

2715 PRINT RT 20,13;-HaiiHffli"; G; 

2716 FOR 1=0 TO 31 STEP 2 

2717 PRINT RT 21,I;**$ ; 

2718 NEXT I 

2720 IF G<1600 THEN PRINT RT 21, 
0; •• GRMBLE 2X , 3X ODER 4X7 

«I 

2722 IF G>=160O THEN LET K=K+G 
2725 IF G>=16©0 THEN GOTO 360© 
2730 IF INKEY$<>"*‘ THEN GOTO 273 

0 

2740 IF INKEY$ = *’“ THEN GOTO 2740 
2745 LET I$=INKEY* 

2747 IF I$=“0” THEN LET LU=0 

275© IF I$ = **2“ THEN GOTO 2980 

2751 IF I$=”3“ THEN GOTO 2902 

2752 IF I$ = **4*' THEN GOTO 2904 

2753 PRINT RT 21,0;O$;RT 19,0;0$ 

2754 FOR 1=0 TO G STEP E 

2755 PRINT RT 18,27;K+I; 

2756 NEXT I 

2757 PRINT RT 20,0;O*; 

2758 IF INKEY$<>**“ THEN GOTO 275 

3 

2759 IF INKEY$ = '*‘* THEN GOTO 2759 

2760 IF INKEY$ = **0** THEN GOTO 276 

4 

2764 LET K=K+G 

2765 LET F=0 
2770 GOTO 240 

2900 LET U=2 

2901 GOTO 2905 

2902 LET U=3 

2903 GOTO 2905 

2904 LET U=4 

2905 


2906 


IF 

U=2 

THEN 

PRINT 

RT 

21,13; 

IF 

U=3 

THEN 

PRINT 

RT 

21,16; 

IF 

U=4 

THEN 

PRINT 

RT 

21,24-; 


2908 LET MG=36 

2909 IF G*U>1©0 THEN LET MG=MG^1 

.2 

2910 IF G^U>400 THEN LET MG=MG^frl 

.5 

2911 IF LU=1 THEN LET MG=18 

2912 LET RR=INT CRND^MG) 

2913 IF RR >31 THEN LET RR = 19-l-RND 
^ 10 

2914 GOSUB 5500 


2915 

G=G*U 

IF 

U=2 

RND 

Ofi<=lS THEN LET 

2917 

2983 

IF 

U=2 

RND 

(^»>16 THEN GOTO 

2920 

G=G*U 

IF 

U=3 

RND 

fifi<=12 THEN LET 

2922 

2983 

IF 

U = 3 

RND 

Oft>12 THEN GOTO 

2925 

=G-3tU 

IF 

C 

II 

RND 

fiO<=9 THEN LET G 

2927 

IF 

C 

II 

RND 

THEN GOTO 2 


983 

2935 PRINT RT 20,20;G; 

2950 GOTO 2712 

2983 LET G=0 

2984 PRINT RT 21,0;M*; 

2985 PRINT RT 21,13; ’'LOSE'’; 

2986 LET NO=l 

2987 PRINT RT 20,20;“ “;G;" 

• a . 

2990 GOTO 3600 

300© IF P(4)=9 OR PC5.^=9 OR P <6) 
=9 THEN GOTO 302© 
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Spiele 


P CS) =9 

OR 

P C9) 

3612 

3615 




.S; " 
3617 

P C2) =9 

OR 

P C3) 

3620 


3010 GOTO 50© 

30S0 IP P(7)=9 OR 
THEN goto 3040 
3030 goto 500 
304.0 LET X=0 
304.1 IF P(1)=G OR 

THEN LET G = 100+4.*E 


304.3 IF G = 100+4.*E THEN LET X = 10© 

304.5 IF G = 100+4.*E THEN GOTO 307© 

3050 IF P(10)=G OR PC 11) =9 OR PC 
IS) =9 THEN LET G = 100^4.*-E 
3053 IF G = 1©04*4.^E THEN LET X=100 

3055 XF G = 100 + 4.^&E THEN GOTO 30S0 

3060 GOTO 500 

3070 IF P(10)=9 OR P(ll)=9 OR PC 
13) =9 THEN LET 6=200-«-S It^E 
3073 IF G=200 +8^eE THEN LET X=20© 
3075 GOTO 3100 

3060 IF PCI)=9 OR PCS)=9 OR PCS) 

=9 THEN LET G=200+S#E 

3083 IF G=200 4-8*E THEN LET X=200 

3085 GOTO 3100 

3100 LET U = INT CRND^f-10) +1 

3105 IF E<10 THEN LET U=INT CRND 

* 13 ) +1 

3107 IF U>10 THEN LET U=9-INT (R 
ND*E)+1 

3110 IF U>E THEN LET G=G-X 
3115 GOSUB 6000 
3120 GOTO 500 

3500 IF F=0 THEN PRINT RT 20^13; 
'•HRLTEN7“; RT 20^23;" ; 

3505 IF K<=0 THEN GOTO 25 
IF F=1 THEN GOTO 360© 

IF INKEY $ <>"" THEN GOTO 351 


3510 

3515 

5 

3516 

3518 

3519 

3520 

3521 

3522 

3523 
3525 

3527 

3528 

3530 
© 

3531 

3532 

3535 

3536 

3537 
3536 
3539 
354.0 
0 

354-1 

3542 

3545 

3546 

3547 
3546 

3549 

3550 
0 

3551 

3552 
3560 
3600 


3611 IF I$ = ‘‘C“ THEN GOTO 3500 
IF I$ = ‘*E*‘ THEN GOTO 500© 

XF I$<>"0" THEN PRINT RT 2© 
HRLTEN GEHT NICHT*'; 

LET F=:0 
FOR 1=1 TO 50 
3625 NEXT I 
363© GOTO 240 
410© PRINT RT 20^ 13; 

4102 LET MU=12 

4105 IF H(l)=l RND HC2)=2 RND HC 
3)=3 THEN LET ü=10 

4107 IF ü=l© RND PC5)>9 THEN LET 
HU =9 

4110 IF H(l)=l RND HC2)=2 RND HC 
35 =4 THEN LET J=7 

4112 IF U=7 RND P(5)>9 THEN LET 
MU=9 


4120 
3) =4 
4122 
HU =9 
4130 
3) =4 
4132 
HU =9 

4150 

4151 

4152 
CRND*10) 

4153 IF 


IF HC1)=1 RND 
THEN LET ü=4 
IF ü=4 RND PCS) 


H (S) =3 RND H C 


>9 THEN LET 


IF H C 1) =2 RND 
THEN LET Ü=1 
IF <J = 1 RND PCS) 


H C2) =3 RND H C 


>9 THEN LET 


FOR 1=0 TO 2 

LET PCÜ+I)=INT CRND*MÜ)*1 
IF PCJ+I)>S THEN LET R=INT 
*1 

PCÜ+I)>S RND R<6 THEN LE 
(P Cü + I) /C CRND*4) +1) 


IF INKEY$="" THEN GOTO 3516 
LET I$=INKEY$ 

IF I$ = '*0" THEN LET F=0 
IF I$ = '*0" THEN GOTO 240 
IF I$ = **K" THEN LET LU = 1 
IF I$ = ''K*' THEN GOTO 3515 
IF r$ = ''C" THEN GOTO 350© 

IF I$ = '‘E" THEN GOTO 5000 
LET HC1)=URL CI*) 

PRINT RT 20^23;HCl); 

IF INKEY $<>•'** THEN GOTO 353 

IF INKEY$=“" THEN GOTO 3531 
LET I*=INKEY$ 

IF I$="0“ THEN GOTO 4300 
IF I$=”C" THEN GOTO 3500 
IF I$ = “E*' THEN GOTO 5©00 
LET HC2)=URL CI$) 

PRINT RT 20^24;HC2) 

IF INKEY $<>'"• THEN GOTO 354 

IF INKEY$ = *'" THEN GOTO 3541 
LET I$=INKEY$ 

IF I$=“0- THEN GOTO 420© 

IF I$ = **C” THEN GOTO 350© 

IF I*=“E" THEN GOTO SÖO© 

LET HC3)=URL CI$) 

PRINT RT 20,25;HC3); 

IF INKEY$ <>••*' THEN GOTO 355 

IF INKEY$ = '*** THEN GOTO 3551 
LET I$=INKEY$ 

IF I$ = **0" THEN GOTO 410© 
PRINT RT 20^13;" 


T P CU + I) =INT 
^©• 5 ) 

4154 NEXT I 
LET F=1 

IF ü=10 THEN GOSUB 4515 
IF ü=7 THEN GOSUB 451© 

IF ü=4 THEN GOSUB 4505 

IF U=1 THEN GOSUB 450© 

GOTO 4536 

PRINT RT 20,13; "ÄVWWV 
LET MU=12 


3602 IF INKEY$<>”“ THEN GOTO 36S 

2 

3605 IF INKEY$ = ***' THEN GOTO 3605 

3606 LET I$=INKEY$ 

3607 IF I$ = ‘'0*' THEN LET F=0 

3610 IF I$ = **0’* THEN GOTO 240 


4155 

4160 

4161 

4162 

4163 
4165 

4200 

4201 

4202 IF HCl)=1 
OTO 4250 

4205 IF HCl)=1 
OTO 4255 
4210 IF HCl)=1 

OTO 4260 
4215 IF HCl)=2 
OTO 4265 
4220 IF H C1) =2 
OTO 4270 
4225 IF HCl)=3 
OTO 4275 

4250 LET ü=7 

4251 LET 0=10 

4252 IF P C5) >9 

4253 GOTO 4280 

4255 LET ü=4 

4256 LET 0=10 

4257 IF P C8) >9 
4256 GOTO 4260 

4260 LET U=4 

4261 LET 0=7 

4262 IF P C2) >9 

4263 GOTO 4280 

4265 LET J=1 

4266 LET 0=10 

4267 IF P (5) >9 

4268 GOTO 428© 

4270 LET J=1 

4271 LET 0=7 

4272 IF P C5) >9 

4273 GOTO 4280 

4275 LET Ü=1 

4276 LET 0=4 

4277 IF P CS) >9 

4278 GOTO 4280 


RND 

H C2) =2 

THEN 

G 

RND 

H C2) =3 

THEN 

G 

RND 

H C2) =4 

THEN 

G 

RND 

H C2) =3 

THEN 

G 

RND 

H C2) =4 

THEN 

G 

RND 

H C2) =4 

THEN 

G 


THEN LET MU=9 


THEN LET MU=9 


THEN LET HU=9 


THEN LET MU=9 


THEN LET MU=9 


THEN LET MU=9 
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Spiele 


4280 

4231 

4282 

4283 

4284 

4285 

4286 

4290 
00 

4291 
05 

4292 
10 

4293 
4515 

4299 

4300 


FOR 1=0 TO 2 5005 
LET P(U4l]i=INT (RND*MU) -f-l 5007 
NEXT I 5010 
FOR 1=0 TO 2 5015 
LET P(0 + I)=INT (RND*12) -1-1 5017 
NEXT I 5020 
LET F=1 5030 
IF Ü=1 ÖR 0=1 THEN GOSUB 45 5832 

5035 

IF ü=4 OR 0=4 THEN GOSUB 45 

5037 
5:3038 
5040 
^5045 
5050 
0 


IF ü=7 OR 0=7 THEN GOSUB 45 S 
IF U=10 OR 0=10 THEN GOSUB 


GOTO 4536 
PRINT PT 20.. 13; 


•vwwwv* 


4332 LET L=10 

4333 GOTO 4370 

4340 LET iJ = l 

4341 LET 0=7 

4342 LET L=10 

4343 GOTO 4370 

4350 LET Ü=1 

4351 LET 0=4 

4352 LET L=10 

4353 GOTO 4370 

4360 LET U=1 

4361 LET 0=4 

4362 LET L=7 

4363 GOTO 4370 

4370 FOR R=0 TO 

4371 LET P(U+R)= 

4372 NEXT R 

4380 FOR B=0 TO 

4381 LET P(0+B)= 
4385 NEXT B 

4390 FOR C=0 TO 

4391 LET P(L+C)= 

4392 NEXT C 

4393 IF Ü=1 OR O 
QoüB 4500 

4394 IF ü=4 OR O 
OSUB 4505 

4395 IF ü=7 OR O 
OSUB 4510 

4396 IF J=l© OR 
N GOSUB 4515 

4398 LET F=1 

4399 GOTO 4539 

4500 FOR 1=1 TO 

4501 GOSUB 8000- 

4502 NEXT I 

4503 RETURN 

4505 FOR 1=4 TO 

4506 GOSUB 8000- 

4507 NEXT I 

4508 RETURN 

4510 FOR 1=7 TO 

4511 GOSUB 8000- 

4512 NEXT I 

4513 RETURN 

4515 FOR 1=10 TO 

4516 GOSUB 8000- 

4517 NEXT I 

4518 RETURN 
4536 LET K=K-E 
4541 PRINT RT 18 
4550 LET F=1 
4560 GOTO 490 
5000 INPUT N 
5002 LET Y=0 


2 

INT 

2 

INT 

2 

INT 


(RND*9) ‘*•1 
(RND*12)+1 


(RND^12)^1 
=1 OR L=1 THEN 
=4 OR L=4 THEN 
=7 OR L=7 THEN 


6 

10«-I 


9 

10*1 


12 

10*1 


.27; K; •*; 


IF N>10 THEN GOTO 5000 
IF N>E THEN LET F=1 

IF N<E THEN LET F=0 

IF NO=l THEN LET F=1 
LET NO=0 
LET E=N 

PRINT RT 18.8;E;’* 

GOTO 3500 

IF Y=1 THEN PRINT RT 20.13; 

• s • 

IF Y=1 THEn'lET F=0 

IF Y=0 THEN LET F=1 

GOTO 3500 
LET Y=0 

IF INKEY* <>"•* THEN GOTO 505 


4302 

IF 

H(1)=1 

THEN 

GOTO 

4330 

5060 

4305 

IF 

H(1)=2 

THEN 

GOTO 

4340 

S07© 

4310 

IF 

H(1)=3 

THEN 

GOTO 

4350 

5080 

4315 

IF 

H(1)=4 

THEN 

GOTO 

4360 

5500 

4330 

LET 

J=4 




1 

4331 

LET 

0=7 




o503 


19.9;"0“;RT 19.12; 


G 

G 

G 


0=10 OR L=10 THE 


3 

10*1 


IF INKEY*=-" THEN GOTO 506© 
IF INKEY* = “©‘' THEN GOTO 240 
GOTO 240 
PRINT RT 
RT 19.18; • B . 

IF LU=1 RND RR<12 THEN LET 
RR =RR +5 

5505 IF LU=0 RND G*U>999 THEN LE 
T RR=31-INT (RND*10) 

5510 FOR 1=0 TO 31-RR 
5520 PRINT RT 19.31-I; ; 

5530 NEXT I 
5540 RETURN 

6000 PRINT RT 19.2;"B“;RT 19.5;- 
g";RT 19,S;“B-.RT 19.11;-H-;RT 1 
9.14;-@-;RT 19.17;-a-;RT 19.20;' 

*RT 19.23; -S";RT 19.26; “g";RT 
19.29; "BEI"; 

6010 LET U=3*U 

6020 FOR 1=0 TO 33-U 

6030 PRINT RT 19.31-I; "<" ; 

604© NEXT I 
6042 FOR T=1 TO 7 
6044 NEXT T 
6050 RETURN 
7880 LET R=13 

7882 LET B=25 

7883 GOSUB S00© + 100*P < I‘i 

7884 RETURN 
7890 LET R=7 
7392 LET B=25 

7893 GOSUB 8000+100*P(I) 

7394 RETURN 
7900 LET R=1 

7902 LET B=25 

7903 GOSUB 8000+100*P(I) 

7904 RETURN 
7910 LET R=13 

7912 LET B=17 

7913 GOSUB S00O*100*P(I) 

7914 RETURN 
7920 LET R=7 

7922 LET B=17 

7923 GOSUB 8000+100*P(I) 

7924 RETURN 
7930 LET R=1 

7932 LET B=17 

7933 GOSUB S000+100*P(I) 

7934 RETURN 
7940 LET R=13 

7942 LET B=9 

7943 GOSUB 8000+100*P(I) 

7944 RETURN 
7950 LET R=7 

7952 LET B=9 

7953 GOSUB 8000+100*PfI) 

7954 RETURN 
796© LET R=1 

7962 LET B=9 

7963 GOSUB S000+1O0*P(I) 

7964 RETURN 
7970 LET R=13 
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Spiele 


7972 LET B=1 

7973 GOSUB 800© 4-10© »P C I) 

7974- RETURN 
7980 LET R=7 

7982 LET B=1 

7983 GOSUB 8©©©+10©»PCI) 

7984. RETURN 
7990 LET fl=l 

7992 LET B=1 

7993 GOSUB 8O00+100+P(I) 

7994. RETURN 

8100 PRINT RT fi^B;" i , 

‘‘.iRT fl+2^B;“! 

T R+3.. B.:P$ 

8110 RETURN _ 

8200 PRINT RT R,B;" 

1,B;"J r ••;RT fl+2,B;" 

T R+3,B;P$ 

3210 RETURN 
8300 PRINT RT R,Bj. »i® 
i.B;"Jl«r ";fiT R+2,B; 

T R+3.. B.:P$ 

8310 RETURN 
34.00 PRINT RT R^B;” 

l,Bj" fl+2,B; 

T R+3.. B.:P$ 

34.10 RETURN 
8500 PRINT RT R,B;" ^ 

1.. B; J^Jl "; RT R+2,B; 

T R+3,B;" ■ 

3510 RETURN 

SS00 PRINT RT fl,B;“_ _ 

1,B;”| I '*;flT R+a^B;" 

r R+3..B;P$ 

8610 RETURN 

8700 P RINT RT fl..B;" m ’’; R T R + 

1.. B;"^illlÄ "/RT fl+2/B;" IHT ";R 

T R+3,. B.:P$ 

3710 RETURN 

8800 PRINT RT R/B;" mI 

1/5; "■■■B ";RT R+a/B;" 

T R+3.. B.:P$ 

8810 RETURN __ 

890© PRINT RT_ R / B-l; .1 lÄ" ; RT 

R + 1 . B-1; : RT R+2 .B-1; 

RT R+3^^1; 

8910 RETURN „ 

PRINT RT R/B;P$;RT R + 1.. B;"® 
■•;RT R+2/B;P$;RT R+3/B;P$ 
RETURN 

PRINT RT R.B ;PA;RT R+1,B;"B 
l'^sM "jRT R+2/6.; "I^PlaB ";RT R+3/ 
B; p$ 

9110 RETURN .. , 

9200 PRINT RT R/B; RT R + 


RT R + 
■ " /■ R 


" ; RT R + 
";R 


" ; RT R + 
- R 



i ::’000 


-sei© 

Qi00 


BPR 


RT R+a/B; "1 


i/B; "1_ 

T R+3/B;P$ 

9210 RETURN „ 

9500 SflUE "RMBRSSRDOS" 
9510 GOTO 10 


R 


GEUINNTRBELLE 


B 

m m 


B 

KIRSCHEN.2. 

m m 4 ... 10 ■ 

• 

. . . 20 

ORRNGEN.... 




ZITRONEN... 

....... 4 . 

• 

... 10 

PFLRUMEN... 




GLOCKEN .... 




KUERBISSE.. 




BIRNEN..... 




REPFEL....« 

a « • a • « 10 a 

• 

. • • 20 



m 

8-^200 

a......... . 


m 

. . 1O0 

BB. . . .. 


m 

. .200 

BBB. . .. 


m 

. . 300 


BEI "4.XBBB" BONUS 1500,- 


tü I tiü I 0' 



üü a 


A|cy| 


EINSRTZ:10 STRND:90 

HRLTEN7 


Fallende Ziegel 1K 


Sie müssen versuchen, mit einem Eimer 
fallende Ziegel aufzufangen. 

Den Eimer (am Bildschirm durch ein "W" 
dargestellt) bewegen Sie mit den 
Pfeiltasten 5 und 8. Nach 20 gefallenen 
Ziegeln wird Ihnen Ihre Trefferzahl mitge¬ 
teilt. 

Das Programm ist gar nicht so leicht zu 
spiel en! 


5 LET R«© 
10 LET B=10 
15 LET C=0 
20 LET R$=" 


25 

30 

35 

40 

45 

50 

55 

5© 

65 

7*0 

7*5 

80 

85 

©0 

95 

1 

100 

1 

105 

15 


LET D=0 

LET E=:INT (RND*1S) 

I «r-r P'-i.l 

IF C“iö THEH GOTO 13© 

PRINT RT D,E.;*‘ 

PRINT RT 

PRINT RT D4-l^E;‘*a'* 

LET D=D+1 

IF D-IG THEN GOTO 73 
GOTO 85 _ 

LET R$(B + 1)=‘'S" 

GOTO 25 

PRINT RT ll^B.;** •• 

PRINT RT 12., 0;R$ 

IF I^4KEY^ = *•5*‘ THEN LET B=B-" 

IF INKEY $ = “8** THEN LET B=B + 

IF E=B RND D=ll THEN GOTO 1 
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Spiele 


Kontoführung 1K 


lio GOTO 45 

115 LET = 

laO LET + •• 

125 GOTO 25 

130 PRIMT “TPEFFEP: '‘j, Hf 
U 

(S S1 (S 

TREFFER: 11 


Anagmm 1K 


Ein Kombinationsspiel für zwei Spieler. 
Einer gibt ein Wort in den Computer ein. 
Der ZX 81 setzt die Buchstaben des Wortes 
neu zusammen. 

Der zweite Spieler muß nun versuchen, 
das ursprüngliche Wort aus den Buchstaben 
zusammenzusetzen. Der Computer teilt mit, 
ob das Wort richtig oder falsch war und 
wieviele Versuche benötigt wurden. 

Dieses Spiel wird übrigens in manchen 
Intel 1igenztests verwendet. 


Dieses Programm ist ein äußerst ein¬ 
faches Kontenführungsprogramm. Es verbucht 
Ein- und Ausgaben und speichert den Ge¬ 
samtbetrag . 

5 LET 5=0 
10 PRINT "KONTO" 

IS PRINT 

ao PRINT "1> EINNRHHE” 
aS PRINT "aJ RUSORBE" 

30 PRINT 
3S PRINT 
4-0 INPUT R 

4-S IP R<1 OR R:*a THEN GOTO 4-0 
SO CLS 

55 IP A=a THEN GOTO laO 
60 PRINT "EINNAHME?" 

65 INPUT B 
70 LET 5=S-f3 
60 CLS 

SS PRINT "IHR KONTOSTRND: " ; S 
90 PRINT ' 

^^SS^PRINT "DRUECKEN SIE IRGENDE 

JSÜ INKEY*="" THEN GOTO 10O 

10S CLS 

llO GOTO 10 

lao PRINT "AUSGABE?" 

laS INPUT B 

130 LET S=S-B 

135 GOTO 30 

Kotsrro 

1) EINNAHME 
a) AUSGABE 


5 

10 

15 

20 

3© 

35 

4.0 

4.5 

5© 

55 

S© 

55 

T© 

T5 

a© 

35 

•'S© 

95 

lO© 

10S 


hnhgrrm 


LET R-1 
LET R$=“ 

PRINT “ _ 

Pk in I 

PRINT -yORTT" 

INPÜT S$ 

DIM C^CLEN 
FOR 1=1 TO LEN B$ 

LET C $(I) =CHR $ (INT 

4*1) ) 

FOR 0=1 TO 1-1 
IF iX) =C$(ü) 

NEXT O 

LET (CODE 

NEXT I 
CLS 

PRINT ••DRS UORT IST R$ 
PRI^4T 

PRINT “UER5ÜCH R 
INPÜT D$ 


(RND^LE 


THEN GOTO 5© 


C$ (I) ) 


L ET R = R 4* 1 


110 JF D$=&$ THEN GOTO 145 
115 PRINT 

12© PRINT “FRLSCH^' 

125 FOR X=1 TO TS 
130 NEXT I 
135 GOTO S© 

140 PRINT 

X4-5 PRINT “SIE 5CHRPFEN ES XM 
B-l; UERSUCHEN'* 


DRS UORT IST PCIH 
UERSUCH 2 

SIE SCHRFFTEN ES IN 2 UERSUCHEN 


U-Boot 16K 


Dies ist die Computerfassung des be¬ 
kannten "Schiffeversenkens". 

Sie spielen gegen den Computer. Jeder hat 
eine Flotte, die er auf einem Gitterfeld 
in Position bringt. Dann wird es kriege¬ 
risch: abwechselnd wird auf die Kästchen 
des Gegners geschossen. Wer vernichtet 
zuerst die gesamte Flotte des Gegners? 

Das Programm druckt eine vollständige 
Bedienungsanleitung aus. 

Ahoi! 

Kurt Goll 

1 REM U-BOOT 

S REM COPYRIGHT BY KURT GOLL^ 
WIEN 
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Spiele 


7 RRND 0 
1© PRINT RT 




lo .5; 


£0 PRINT RT 14.,S; **SPIEl-REGBL.N 


THEN GOTO 700 


NOTWENDIG 

• ('J yN> 7“ 

30 

INPÜ 


40 

IF CODE R$=47 

0 



50 

IF CODE R$=51 

60 

GOTO 30 

70 

CLS 


80 

FRST 

31 

DIM 

H (4) 

32 

LET 

L1=0 

83 

LET 

L3=4 

84 

DIM 

U 14) 

86 

DIM 

I (4) 

88 

LET 

Sl=© 

90 

DIM 

R$ (10 .10) 

91 

LET 

L2=0 

92 

LET 

U=0 

93 

DIH 

D$(1©,10} 

95 

DIM 

Z$ (1,2) 

97 

DIM 

R (11^4) 

98 

LET 

UIER=© 

10© 

DIM 

B$(10^10} 

102 

LET 

U1=0 

103 

DIM 

P(11,4> 

105 

DIM 

C$ ll©^10} 

107 

DIM 

U(10^4) 

108 

LET 

S=0 

110 

FOR 

X=1 TO 10 

120 

FOR 

Y=1 TO 10 

130 

LET 

R$ i X ,Y) =“ 

135 

LET 

B$ (X\.Y:i =“ 

140 

LET 

C$ (X^ Y) =•• 

145 

LET 

D$ (X,Y) =“i 

150 

NEXT 

Y 

160 

NEXT 

X 

162 

FOR 

M=1 TO 10 

163 

FOR 

N = 1 TO 4 

165 

LET 

U (M J.N) =0 

166 

LET 

P (H,Ny =0 

167 

LET 

R \M,N) =0 


GOTO 70 


ISS NEXT N 

169 NEXT N 

170 GOSUB 3000 
175 PRINT RT 17^0; 

N SIE BITTE IHRE“ •• 


“POSITIONIERE 
U-BOOTE - “ ^ ^ < 

lER) “ 


THEH GOTO 19 


1 4.ER;2 3ER;3 2ER;4. 

130 FOR M = 1 TO 20 
190 GOSUB 3200 

22© IF R$ 

0 

225 LET R$ (X..Y) 

227 IF M=20 THEN GOTO 24-2 
230 GOSUB 3000 

24-0 NEXT M 

242 CLS 

243 GOSUB 300© 

244 PRINT RT 17 .. O; “ OKRY ( 7 “ 

245 INPUT E$ 

246 IF E$=:“U“ THEN GOTO 25© 

247 IF E$=“N“ THEN GOTO 7© 

248 GOTO 245 
250 FRST 

252 FOR N=:l TO 4 

253 LET H(N)=:L3 

254 LET L3=:L3-1 

255 NEXT N 
260 CLS 

265 LET 01=1 
270 LET 0=1 
230 FOR H=i TO O 
290 GOSUB 3300 

300 IF C$ (X, Y^ OR C$(X..Y.^=“ 

X“ THEN GOTO 290 
305 LET PC01^5-0)=X 


306 

303 

310 

320 

330 

340 

345 

346 
-1 

350 

360 

365 

366 
+ 1 

370 

3S0 

390 

395 

396 
-1 

400 

410 

415 

416 


LET R (Ol .5-03 =Y 
LET C$(X,Y)=“|^“ 

FOR L=1 TO C4-03 

IF RND < .5 THEN GOTO 33© 

IF RND<.5 THEN GOTO 36© 

LET Y=Y-H 

IF Y>10 THEN LET Y=Y-1 
IF C$CX,Y>=“X“ THEN LET Y=Y 

GOTO 420 
LET Y=Y-1 

IF Y<1 THEN LET V=Y*fl 
IF C$LX,Y3=“X“ THEN LET Y =V 

GOTO 420 

IF RND<-5 THEN GOTO 410 
J RT V —V 4. 

IF X>10 THEN LET X=X-1 
IF C$(X^Y3=“X“ THEN LET X=X 

GOTO 420 
LET X=X-1 

IF X<1 THEN LET X=X+1 
IF C$(XxY]i=“X“ THEN LET X =X 


+ 1 
420 

0 

430 

435 

436 
440 
450 
453 
455 
460 
470 
480 
435 
492 
494 

496 

497 

498 

499 

500 
507 

SEN 
503 

509 

510 
513 

515 

516 
52© 

0 


IF C$(X..Y)=“J 


THEN GOTO 32 


LET c$(xyry 
LET PlOl^L) 

LET Rt01^L3 
NEXT^L 
GOSUO 3100 
LET 01=01^1 
NEXT M 
LET 0=0-M 
IF 0>4 THEN 
GOTO 280 
FRST 

FOR M=1 TO lO 
FOR N=1 TO 4 
LET U Cfi^ N) =:P iN, 

NEXT N 
NEXT M 
CLS 

GOSUB 3000 

PRINT RT 17.,©; “BITTE SCHIES 
SIE. “ 

GOSUB 3200 

FRST 

CLS 

LET T=0 
LET L=4 
LET UER=1 
IF C$ (X.,Y) =“| 


=X 

=Y 


GOTO 433 


,N) 


THEN GOTO 57 


URBBE 


Rtri^NJ=V TH 


530 LET B$l*X,Y)=“X“ 

540 PRINT RT 17.,0.;“j 
560 GOTO 730 
570 FOR M=1 TO lO 

580 FOR N=1 TO 4 

590 IF U 4ji/N3 =X.‘ RND 
EN GOTO 620 
500 NEXT N 
610 NEXT M 
620 LET UlH^N3=0 
630 FOR N=1 TO 4 

635 IF P(M.N)=0 THEN LET L=L-1 

640 IF U(M^N3=0 THEN LET T=T+1 

650 NEXT N 

655 LET B$ IX,Y3 

660 IF T=4 THEN LET U=U+1 

670 IF U=10 THEN GOTO 710 

630 PRINT RT 17 ^ O; 

690 IF T=4 THEN PRINT RT 17.7:' 

595 IF T=4 THEN GOSUB 3250 
700 GOTO 730 
710 PRINT RT 17 


RLLE UER5ENKT 
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Spiele 


715 

GOSUB 300© 


1530 

LET 

D$ (X^Y) 

720 

STOP 


1535 

LET 

01=11 

730 

GOSUB 3*300 


1537 

LET 

L1=L1+1 

732 

LET UER=2 


1538 

LET 

U <L1) =X 

735 

IF S=1 THEN GOSUB 

1200 

1539 

LET 

1 t J_l ■« =Y 

740 

IF D$ (X,V ) =-|g?- OR 

D$ (X,Y)=” 

1540 

FOR 

j«5=l TO 1_1 


X-' THEN GOTO 73Ö 

7^5 XF Y=XG TH£N L-£T Y=0 

75© 1«ET Z$(l^Xi=CHR$ (X+37) 

7S0 LET Z$(1^S)=CHR$ fY-hSS) 

765 IF Y=0 THEN LET Y=10 

770 PRINT RT 19^O; “ICH SCHIESSE 

RUF .; Z* (l.> ;. •••/'* (URSSER=U; 

TREFPER=T; UERSENKT=U) *• 

780 GOSUß 3000 
790 INPUT E$ 

795 FRST 

300 IF CODE E$=60 THEN GOTO 84-0 

810 IF CODE E$=57 THEN GOTO 87© 

820 IF CODE E$=59 THEN GOTO 150 

0 

830 GOTO 790 

34-0 IF NOT R$ (X .Y^ =••©’• THEN GOT 
O 79© 

34.S LET R$ (X^Yi =r'-X-* 

850 LET D* (X,Y) =*'X*‘ 

855 IF 5=1 THEN GOTO 960 
360 GOTO 4.99 

870 IF NOT R$ CX^Y) =-B*' THEN GOT 
O 790 

880 LET R$CX>Yi=- 
890 LET D$rX^Y}=**| 

900 LET L1=L1-M 
905 IF LI>3 THEN GOTO 8000 
910 LET U(L1)=X 
920 LET XCL1)=Y 
925 IF S=0 THEN GOTO 1230 
960 LET Sl=Sl;fl 
970 XF 31—1 THEN GOTO 1020 
980 IF 31=2 THEN GOTO 1050 
990 IF Sl=3 THEN GOTO 1070 
1000 IF Sl=4 THEN GOTO 1100 
1010 IF L1=L2 THEN GOTO 8000 
1015 GOTO 1230 
1020 LET F=F-1 
1025 IF F<1 THEN GOTO 960 
1030 IF D$ iF^Gi =“X** OR D$tFxGi=" 
W' THEN GOTO 960 
104^0 GOTO -499 
1050 LET F=F>2 

1055 IF F>10 THEN GOTO 960 

1056 IF D* (F^G) =“X** OR D$(F^G)='‘ 
m*' THEN GOTO 960 

1060 GOTO 499 
1070 LET F=F-1 
1080 LET G=G-1 

1085 IF G<1 THEN GOTO 96© 

1086 IF D$ (F,G> =**X“ OR D$(Fj*G)=*’ 
K'* THEN GOTO 960 

1090 GOTO 499 
1100 LET G=G+2 

1105 IF G>10 THEN GOTO 960 

1106 IF D$(F/G)=-‘X" OR D$(F^G)=" 
THEN GOTO 96© 

1110 GOTO 499 
LET X =F 
LET Y=G 
RETURN 
LET L2=L2+1 
LET P=U(L2) 

LET G=IiL2) 

LET S1=0 
LET S=1 
GOTO 960 

IF 5=1 THEN GÖSÜB 120© 

IF NOT R$ (X ,Y) =“P‘* THEN GOT 


1200 
1210 
1220 
1230 
1240 
1250 
1260 
1265 
1270 
150© 

1510 
O 790 
1520 LET 


1560 

1570 

1580 

1583 

1584 
1590 
1600 
1610 
1620 
1630 
1635 
1640 
1650 
1660 
1670 
1675 
1880 
3*' . , 
170© 
3000 
3005 


LET P lOl^NJi =U INJ 
LET Ri01^NJ=XlNJ 
NEXT N 

LET H(LI)=H<L1)-1 

IF HVL1)<0 THEN GOTO 8000 

LET L=L1 

GOSUB 3100 

LET 3=0 

LET 31=0 

LET L1=0 

LET L2=0 

LET U1=U1+1 

IF Ul=10 THEN GOTO 1670 

GOTO 499 

CLS 

GOSUB 3000 
PRINT RT 17.0: 

iüBegg - 

öTOP 


E-Ll ZNUE. 


r MO < 
PRINT 


M I 


301© HHJ.N I M I 


..S, 


RT 2,19; 


3020 FÜR N=1 TO 1© 

3330 PRINT RT N+4,4;CHR$ (N+165) 

;R$(N);CHR$ (N+165);B$(N);CHR$ ( 

N+165) 

3040 NEXT N 

3050 PRINT RT 15.5: B 


3060 SLOU 

3070 RETURN 

3100 FOR 0=1 TO L 

3102 LET X=P(01,0) 

3103 LET Y=R(01,0) 

3108 FOR iJ=X-l TO X + 1 
3110 FOR K=Y-1 TO V+1 

3120 IF U>10 OR K>10 OR U<1 OR K 
<1 THEN GOTO 3150 

3125 IF Ü=X RND K=Y THEN GOTO 31 
50 

3130 IF (UER=0 OR UER=1) RND (C$ 
CU,K)=**^- OR B$ (Ü,K) =-\^") THEN G 
OTO 3150 


3135 IF 
EN GOTO 

UER=2 

3150 

RND D$(ü 

.K) =-M" 

TH 

3140 

X*’ 

3145 

IF 

UER=0 

THEN 

LET 

C $ ( U , K ) 

^ t# 

IF 

UER = 1 

THEN 

LET 

B $ ( U , K ) 

1 i 

*3147 

X*’ 

3148 

IF 

WER =2 

THEN 

LET 

D$(U,K) 

^ »« 

IF 

UER=2 

THEN 

LET 

R$ (Ü,K) 



X” 

3150 NEXT K 

3160 NEXT U 

3180 NEXT Q 

3190 RETURN 

3200 INPUT Z$(l) 

3204 IF Z$(1)=*‘CH* 


THEN GOTO 34© 


0 

3206 IF Z$(1)=**TC** THEN GOTO 70 
3210 LET X=CODE (Z$(l,l))-37 
LET Y=CODE (Z$(l,2))-2a 
IF Z$ (1,2) ='•©•’ THEN LET Y=1 


R$ (X,Y) =*' 


3220 
3230 
0 

3235 IF X>10 OR Y>10 
<1 THEN GOTO 320© 
3240 RETURN 
3250 LET 01=H 
3260 GOSUB 310© 


OR X<1 OR Y 
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Spiele 


PETURW 
LET X=rINT 
LET Y=:INT 
RETURN 
UET M=M-2 
L.ET 

G03ÜB 3000 
GOTO 24.0 
CLS 

PRINT RT 0., 


(RND9M0) +1 
iRND*10)+1 






3270 
3300 
3310 
3320 
34.00 
34-10 
34.15 
34.20 
7000 
7010 

lasQS" 

7020 PRINT RT 1^11; -- 

7030 PRINT RT 3^0; SIE RL.S RUCH 
IHR COMPUTER UER--STECKEN RUF 
EINEM 10^10 FEL.D 10U-BOOTE.* UND 
ZURR 1 4.ER U-BOOT ^23ER.. 3 2ER UND 
4. lER. DIE U-BOOTEDUERFEN EINRN 
DER NICHT BERUEHREN'* 

704-0 PRINT RT 8 ^ O; “RUSSERDEM DUE 
RFEN SIE NUR RN DENSEITEN DER K 
RESTCHEN UND NICHTRN DEN ECKEN 
ZUSRMMENHRENGEN. HIER EINIGE B 
EISPIELE:“^-ERLRUBT: 



7050 

PRINT 

RT 


7060 

PRINT 

RT 

SS» 


m 

7070 

PRINT 

RT 

m- 

7080 

PRINT 

RT 

RLLE 

U-BOOTE 


KT HRT^HRT GEUGNNEM.SEITE 2 


7090 INPUT R$ 

7100 IF CODE R$=47 THEN GOTO 712 
0 

7110 GOTO 7090 
7120 CLS 

7130 PRINT "(JENN SIE SICH BEIM P 
OSITIONXERENIHRER U-BOOTE IRREN, 
KOENNEN SIEDURCH "•‘CH-“ IHRE 
LETZTE EINGRBELOESCHEN; DURCH " 
TC”" KOENNEN SIERLLES LÖESCHEN. 
NRCHDEM SIE IHREU-BOOTE POSmON 
XERT HRBEN,POSI--TIONIERT IHR C 
OMPUTER SEINE U-BOOTE.DRNN KOENN 
EN SIE SCHIESSENFRLLS SIE XRGE 
ND EINE FRL SCHEE INGRBE MRCHEN., 
UIRD DRS SPIELNEU GESTRRTET. G 
EBEN SIE BITTEIMMER ZUERST DEN 
BUCHSTRBEN ETNjDRNN DIE ZIFFER. 
••,'*SIND SIE BEREZT (Cy r UZEi^ GLUE 
CK. “ 

714.0 INPÜT £$ 

7150 IF E$ = '*U** THEN GOTO 70 

7100 IF e|='^N*- THEN GOTO 7000 

717© GOTO 714.0 

8000 CLS 

8010 GOSUB 3000 


8020 PRINT RT 17,0;"SIE HRBEN EX 
NE FRLSCHE EINGRBE*’, GEMRCHT . DRS 
SPIEL UIRD NEU GE-•*,•*-STRRTET . ** 

8030 PRUSE 350 

8035 CLS 

304.0 RUN 

9000 STOP 


aaiiB S85^ 






3 

0000000000ffl 
000 0 0|3 

0O0000O000S 

00^0000000« 
|00000^^0000|n 

| 00000 ^ 0000 GB 

000000000 O|B 

^0000000008 

0000000000g 
0000000000g 
P 0 00 0000000g 
^0000000001 
0000000000 S 
^0000000001 
[00000000001 
[0000000000 S 
000000000^8 
1000000000^5 





POSITIONIEREN SIE BITTE IHRE 
U-BOOTE. 

CI 4-ER;2 3ER;3 2ER; 4- lER) 


Mensch ärgere 
Dich nicht 16K 

Dieses Spiel ist eines der bekanntesten und 
wohl auch eines der ältesten Spiele. 

Mit und gegen den ZX 81 gespielt, wirkt es 
vielleicht wieder interessant. Das Progranmi 
gibt eine genaue Spielanleitung aus. Viel 
Spaß und ärgern Sie sich nicht zu viel! 

Programn: Electronova 

Hütteldorfer Str. 222 
1140 Wien 


1 REH 


MENSCH OERGERE DICH 
NICHT 

■Je**-**-*******-*-*-*'*'»*^*** 

( 

LRS PRLMRS, 7.10.1981 
UON CHRISTIRN JELESIT2 


i 


1 


2 

3 

4. 

5 

6 
7 
S 
9 


LET S1=0 
LET .S2=0 
LET 53=0 
LET T=0 
LET Yl=2 
LET Y2=2 
LET Y3=2 
LET U4i = “V^ 


UUERFLE NOCHMALS 
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Spiele 


XQ CLS 
11 LET F$ = ‘i 



lE kHT w^WAVif 


iWVW 


13 LET Z=0 
14. LET U=© 

15 PRINT Fi , 

P$..Fi^F$^Fi 

16 LET H1=0 

17 LET Ma=0 
IS LET M3=0 

20 PRINT RT ll^l;*' MENSCH RER 
GERE DICH NICHT 

22 PRINT RT 12 . 1; ""fnFPffWWWFi 

ifirifitifffiiiiifc -- ...... 

23 PRINT RT 10.1; >>yy|^UAAUüUU 

jyuuLuuuuyuuuuujJi"' 

25 PRINT RT 19^1;“ UIEUIELE SP 
XELER7 1 ODER 2 “ 

30 PRUSE 5E3 
4.0 LET Ui = INKEY $ 

4.5 IF CODE Ui <29 OR CODE U$>30 
THEN GOTO 30 
4-3 RRND 

50 LET UsURL Ui 
55 IF U=2 THEN LET U=0 
60 CLS 
65 PRINT F$ 

69 PRINT 

70 PRINT " MENSCH RERGERE DI 

CH NICHT” 

71 PRINT 

75 PRINT ”RN DIESEM SPIEL KOEN 

NEN BIS ZU ZUEI PERSONEN GEGEN 
DEN COMPUTERSPIELEN UEDER SPIELE 
R HRT UIER STEINE DIE ER INS ZI 
EL BRINGEN SOLL. MIT >>NEU LINE 
<< KRNN MRN UUERFELN. DURCH DRUE 
GKEN DER TRSTEN UON 1-4. KRNN 

HRN SEINE STEINE BEUEGEN. DURC 

UON >0< UERZICHTET M 
ZUG. FRLLS MRN EINE 
>6< BRRUCHT UM INS SPIEL ZU KOMM 
EN. DRRF 2X GEUUERFELT UERDEN. U 
ENN MRN >6< UUERFELT DRRF MRN NO 
CH EINMRL UUERFELN. ”^^“NUN DR 
ÜECKEN SIE >>NEU LINE<< ”^^ 

76 PRINT ” UIEL SPRSS 

^**-je***” 

90 INPUT Mi 
100 LET Ri=:”S 

> T 

> R 

> R 

> T 


H DRUECKEN 
RN RUF DEN 



11© 

LET 

Bi="DRS 

SPIEL 

120 

DIM 

R (45 


130 

DIM 

B (45 


140 

DIM 

C (45 


150 

DIM 

Z$ (4,15 


160 

LET 

Zi ( 1,15 


165 

LET 

Z$(2,15 


170 

LET 

Zi(3,15 

■_ ..Kj«. 

175 

LET 

Zi(4,15 

=s 

200 

CLS 


201 

PRINT RT O. 

0; ”—i 




202 IF U = 1 RND 63 = 1 THEN LET S1 


203 IF 51=1 THEN GOTO 600 

204 LET R1=0 

205 IF S2=0 RND S3=0 RND R(l)>3 
1 RND R(2)>31 RND R(3)>31 RND R< 
4)>31 THEN LET Sl=l 

206 IF S2=l RND 53=© RND R(l)>3 
1 RND R(2)>31 RND RC3)>31 RND R( 
45 >31 THEN LET Sl=2 

207 IF 52=0 RND 53=1 RND R(l)>3 
1 RND R(2)>31 RND R(35>31 RND RC 
4) >31 THEN LET 51=2 

208 LET R=400 

209 GOSUB 700© 

210 PRINT RT 5^0;Ri 

211 GOSUB 3000 

212 GOSUB 5200 

215 IF Z<>6 OR Yl<3 THEN PRINT 
RT 7^7;”*^ UUERFLE NUN ie*” 

216 IF Z=6 OR Yl>2 THEN PRINT R 
T 7,4; Ji 

217 IF 51>0 THEN GOTO 600 

260 INPUT X$ 

280 GOSUB 2000 

290 IF T=1 THEN GOTO 540© 

400 PRUSE 500© 

401 PRINT RT 21,0;” 


402 IF Z=6 RND Yl<3 THEN LET Ml 
= 1 

434 LET X$=INKEY$ 

405 IF CODE Xi<28 OR CODE Xi>32 
THEN GOTO 40© 

406 LET X=URL Xi 

407 IF R(1.>=0 RND R (25 =0 RND R( 
3)=0 RND fl(4)=0 RND Z<6 RND X<>© 

THEN LET X=© 

409 GOSUB 6000 

410 IF Z<>6 RND X=0 THEN GOTO 6 
03 

411 IF R(1)=0 RND R(2)=0 RND R( 
3)=© RND R(4)=© RND Z<6 THEN GOT 
O 60© 

412 IF R(X5=0 RND Z <6 THEN GOTO 
510© 

413 FOR R = 1 TO 4 _ 

414 IF R(X)>0 RND R(X)+Z=R(R) T 

HEN GOTO 5000 _ 

416 IF R(X)=0 RND R(R)=1 THEN G 
OTO 500© 

419 NEXT R 

42© IF R(X)+Z>35 THEN GOTO 510© 
460 IF R(X)>0 THEN LET R(X)=R(X 

5 

462 IF R(X)=0 RND Z=6 THEN LET 
R(X)=1 

470 FOR R=i TG 4 

480 IF R(X)<32 RND R(X>=B(R) TH 
E»N LET B(R)=0 

485 IF R(X)<32 RND R(X)=C(R) TH 
EN LET C{R)=0 
490 NEXT fl 

550 IF Z=6 THEN GOTO 20© 

600 CLS 

601 PRINT RT 0.0; ”1 



502 IF Z=6 RND Y2<3 THEN LET M2 
= 1 

603 IF U=1 OR S2=l THEN GOTO 10 
0 © 

604 LET R1=0 

605 IF S1=0 RND S3=0 RND B(15>3 
1 RND B(2)>31 RND B(35>31 RND B( 
4)>31 THEN LET S2=l 

606 IF 61=0 RND S3=l RND B(l)>3 
1 RND B(2)>31 RND B(3)>31 RND BC 
45 >31 THEN LET 52=2 
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Spiele 


607 IF Sl= 
1 aND B(2)> 
4.) >31 THEN 
60Q LET R= 
GOSUB 
PRINT 
GOSUB 
GOSUB 
IF S2> 
IF Z<> 
** 
Z=6 


609 

610 
611 
612 
613 

615 
RT 7^7; 

616 IF 


T 7,4.;J$ 
660 INPUT 
6o0 GOSUB 
S00 PRUSE 
801 PRINT 


1 RND S3=0 RND BC1)>3 
31 RND B(3)>31 RND B( 
L.ET S2=2 
000 
7100 

RT 5^0;R$ 

3000 

5200 

0 THEN GOTO 1000 
6 OR Y2<3 THEN PRINT 
UUERFLE NUN 
OR Y2>2 THEN PRINT R 

X$ 

2000 

5000 

RT 21^0; •’ 


OR CODE X$i>32 


304. LET X$ = INKEY$ 

805 IF CODE X$<28 
THEN GOTO SOO 
006 LET X=URL X$ 

007 IF B(l>=8 RND B(2)=© RND B( 
3) =0 RND B(4.)=:0 RND Z<6 RND X<>0 
THEN LET X=0 
809 GOSUB 6100 

610 IF Z<>6 RND X=0 THEN GOTO 1 
00O 

oll IF B(1)=:0 RND B(2)=0 RND Bl 
3) =0 RND B(4.)=0 RND Z<6 THEN GOT 
O 1O0O 

812 IF B(X)=0 RND 
5100 

S13 FOR R = 1 TO 4. 

814. IF B (X) >0 RND 
HEN GOTO 5000 
316 IF B(X)=:0 RND 
OTO 5000 
819 NEXT R 
620 IF B(X) 

860 IF BCX) 

> ^-Z 

862 IF B(Xi=0 RND Z=6 THEN LET 
B CX) =1 

870 FOR R=1 TO 
860 IF B(X) <32 
EN LET R(R)=0 
885 IF B(X) <32 
EN LET C(R)=0 
890 NEXT R 

950 IF Z=6 THEN GOTO 600 
960 IF B(l)>31 RND B(2)>31 
>31 RND B (4.) >31 


Z<6 THEN GOTO 


B (X’i +Z=B (R) T 
B (R) =1 THEN G 


+Z>35 THEN GOTO 5100 
>0 THEN LET B(X)=B(X 


4. 

RND 


B(X)sR(R) TH 


RND B (X) =:C (R) TH 


6 (3) 

1 

1000 CLS 

1001 PRINT 


THEN 


RND 
LET S2= 



S3=l THEN GOTO 200 

U=1 RND Sl=l THEN LET S3 


1003 
1004. IF 

==2 

1005 IF S1=0 RND 32=0 
1 RND C(2)>31 RND C(3) 
4.) >31 THEN LET S3 = l 

1006 IF 51=1 RND S2=0 
1 RND C(2)>31 RND C(3) 
4) >31 THEN LET S3=2 

1007 IF S1=0 RND S2=l 
1 RND C(2)>31 RND C(3) 
4)>31 THEN LET S3=2 


RND 

>31 

RND 

>31 

RND 

>31 


C (1> 
RND 

C (1) 
RND 

C (1) 
RND 


>3 
C ( 

>3 
C ( 

>3 
C C 


1008 LET M1=0 

1009 LET M2=0 

101© PRINT RT 5^0;R$ 

1011 GOSUB 3000 

1012 GOSUB 5200 

1013 IF S3>0 THEN GOTO 200 

1015 IF Z<>6 OR Y3<3 THEN PRINT 
RT 7^7; UUERFLE NUN 


1016 IF Z=6 OR Y3>2 THEN PRINT R 
T 7., 4.;U* 

1030 PRUSE 100 
104.0 GOSUB 2000 

104.5 PRUSE 150 

104.6 IF Z=:6 RND Y3<3 THEN LET M3 
= 1 

104.7 IF Z=6 THEN LET Y3=:2 

105© IF Z=6 RND C(1)=:0 RND C C2) ^ 
0 RND C(3)=0 RND C (4.) =0 THEN GOT 
O 1900 

1355 IF Z<6 RND C(1)=0 RND C(S)^ 
0 RND C(3)=0 RND 0(4)=© THEN GOT 
O 1200 

1360 FOR R=1 TO 4 

1065 IF CCR)+Z<32 RND C(R)>0 RND 
CC(R)+Z=:R(1) OR C(R)+Z=R(2) OR 
C<R)^Z=iR(3) OR C(R)+Z=R(4)) THEN 
GOTO 1909 

1070 IF C(R)-J-Z <32 RND C (fl) >0 RND 
CC(R)+Z=B(1) OR CCR)+Z=BC2) OR 

CCR)+Z=:B(3) OR C CR) 4*Z=:B (4) ) THEN 
GOTO 1909 

1071 NEXT R 

1075 FOR R=1 TO 4 

1076 IF C(R)<32 RND C(R)-l-Z>31 RN 
D C(R)+Z<36 RND C(R)+Z<>C(1) RND 

CCR)+Z<>C(2) RND C (R) -l-Z <>C (3) R 
ND C(R)+Z<>C(4) THEN GOTO 1930 
1078 NEXT R 
1080 FOR R=1 TO 4 

1085 IF Z=6 RND C(R)=0 RND C(l)< 

>1 RND C(2)<>1 RND C(3)<>1 RND C 

(4)<>1 THEN GOTO 1920 

1087 NEXT R 

1090 FOR Rrrl TO 4 

1095 IF C(R)=1 RND C(R)+Z<>C(1) 
RND C(R)+Z<>C(2) RND C(R)+Z<>C(3 
) RND C<R)+Z<>C(4) THEN GOTO 193 

0 

1099 NEXT fl 

1100 FOR C=1 TO 4 

1102 IF C(C)>12 RND C(C) <32 THEN 
GOTO 1106 
1104 NEXT C 

1106 IF C<3 THEN GOTO 1109 

1107 FOR fl=4 TO 1 STEP -1 

1108 GOTO 1110 

1109 FOR R=1 TO 4 

1110 IF CCR)>0 RND C(R)+Z<36 RND 
C(R)+Z<>C(1) RND C(R)+Z<>C(2) R 

ND C(R)+Z<>C(3) RND C(R)+Z<>C(4) 
THEN GOTO 194© 

1115 NEXT R 
1200 REM 

1202 IF M2=l RND Z=6 THEN GOTO 1 
000 

1204 IF M3=l RND Z<6 THEN GOTO 2 

0© 

1205 IF Y3>2 THEN GOTO 1280 
1215 IF C(1)<>0 RND C(l)<32 OR C 
C2)<>0 RND C(2) <32 OR C(3) <>© RN 
D C(3)<32 OR C(4)<>0 RND C(4)<32 

THEN GOTO 1217 


1216 

GOTO 1220 


1217 

IF Z=6 THEN GOTO 

10O0 

1218 

GOTO 200 


1220 

LET Y3=Y3+1 


1230 

GOTO 100© 


1280 

LET Y3=2 


1285 

GOTO 20© 


1300 

REM 


1900 

LET C(1)=1 


1901 

LET R=1 


1905 

GOTO 1911 


1909 

LET C (R) =C (R) +Z 


1911 

FOR B=1 TO 4 


1912 

0 

IF R(B)=C(R) THEN 

LET 
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1913 IF B{B)=C(fi) THEN 1_ET B(B) = 
0 

1915 NEXT B 
1917 GOTO 1990 
1920 i_ET C<fi)=l 
1925 GOTO 1911 
1930 LET C =C(fi) +Z 
1935 GOTO 1990 
194.0 LET C(fi)=C(fi)+Z 

194.5 GOTO 1990 

1990 IF Z=6 THEN GOTO 1000 
1992 IF Z<6 THEN GOTO 200 
1995 GOTO 200 

2000 REM 

2001 REM ....UUERFEL.... 

2002 REM 

2006 PRINT RT 7^5;” 

«t 

2007 PRINT RT 7^3;">> UREHLE EIN 
EN STEIN <<•* 

2009 LET Z=1+INT (RND*7) 

2010 IF Z>6 THEN LET Z=6 

2011 UNPLOT 29^10 

2012 UNPLOT 31^10 

2013 UNPLOT 33,10 
2014. UNPLOT 31,8 

2015 UNPLOT 29,6 

2016 UNPLOT 31,6 

2017 UNPLOT 33,6 

2020 IF Z=1 OR Z=3 OR Z=S THEN P 
LOT 31,8 

2030 IF Z>1 THEN PLOT 33,10 
204.0 IF Z>1 THEN PLOT 29,6 
2050 IF Z>3 THEN PLOT 29,10 
2060 IF Z>3 THEN PLOT 33,6 
2070 IF Z=6 THEN PLOT 31,6 
2080 IF Z=6 THEN PLOT 31,10 
2090 FOR R=27 TO 35 
2100 PLOT R,12 
2110 PLOT R,4. 

2120 NEXT R 

2130 FOR R=5 TO 11 

214.0 PLOT 27, R 

214.5 PLOT 35, R 
2150 NEXT R 
2200 RETURN 

3000 REM 

3001 REM *** STEINERUSDRUCK *** 

3002 REM 

3003 PRINT RT 15,27;” 

3004. PRINT RT 17,27; "| 

3005 PRINT RT 19,27; "1 



3006 IF R(l) 
R(3)>31 RND 
N GOTO 200 

3007 IF B(l) 
B(3)>31 RND 
N GOTO 600 

3008 IF CCl) 
C (3) >31 RND 
N GOTO 1000 
3010 FOR R=1 
3020 IF RCR) 
fR-1);R 
3030 IF B(R) 
fR-1);Z$(R) 
304.0 IF C(R) 
(R-1);"X” 
3050 IF R(R) 
PRINT RT 11, 
3060 IF B<R) 
PRINT RT 11, 
3070 IF C(R) 
PRINT RT 11, 
3080 IF R(fl) 

PRINT RT 15 
3090 IF BCR) 
PRINT RT 17 


>31 RND R(2)>31 RND 
R(4.)>31 RND 61=0 THE 


PRINT RT 21,0 
X;"< NICHT FR 


PRINT 
Z$ <X) ; 


RT 
” < 


21,0 

NICH 


3100 IF C(R)>31 RND C(R) <36 THEN 
PRINT RT 19,(C(R)-5);”X” 

3200 NEXT fl 
3210 GOTO 5200 

5000 PRINT RT 21,0;" DU SCHMEI 
SST DEINEN STEIN 
5005 GOSUB 7200 
5010 GOTO R 
5100 IF R=4.00 THEN 
:"DU KANNST MIT >"J 
HREN" 

5102 IF R=800 THEN 
;"DU KANNST MIT >", 

T FAHREN" 

5110 GOSUB 7200 
5150 GOTO R _ 

5200 IF Sl=l THEN PRINT 
"GEWONNEN" _ 

5205 IF W=0 RND Sl=2 THEN PRINT 
RT 15.0;"2. PLATZ" 

5206 IF U=1 RND Sl=2 THEN PRINT 
RT 15,0;"UERLOREN";RT 7,7;B* 

5210 IF S2=l THEN PRINT RT 17,0; 
"GEWONNEN" 

5215 IF U=0 RND S2=2 THEN PRINT 
RT 17,0;"2. PLATZ" 

5220 IF S3=l THEN PRINT RT 19,0; 
"GEWONNEN" __ 

5225 IF U=0 RND 53=2 THEN PRINT 
RT 19,0;"2. PLATZ" 

5226 IF W=1 RND S3=2 THEN PRINT 
RT 19,0;"UERLOREN";RT 7,7;B$ 

5230 IF U=0 RND S1>0 RND S2>0 TH 

19,0;"UERLOREN";RT 7 


RT 15,0; 


EN 


RT 


RND S1>0 RND S3>0 TH 
17,0;"UERLOREN";RT 7 

RND S2>0 RND S3>0 TH 
15,0;"UERLOREN";RT 7 


PRINT 
. B$ 

5235 IF U=0 

EN PRINT RT 

,7; 8* 

524.0 IF W=0 

EN PRINT RT 

52^5 IF T = 1 THEN GOTO 54.00 

5250 IF S1>0 RND S2>0 OR S1>0 RN 

D 53>0 OR S2>0 RND S3>0 THEN GOT 

O 5300 

5290 RETURN 

3300 LET T=1 

5^00 PRINT*^RT 21,0; ■Ji> >NEU LINE < 
< FUER NEUES SPIEL 
5410 PRINT RT 20,0; 


>31 RND B(2)>31 RND 
Bt4)>31 RND S2=0 THE 

>31 RND C(2)>31 RND 
C(4)>31 RND S3=0 THE 

TO 4 

=0 THEN PRINT RT 15, 

=0 THEN PRINT RT 17, 

=0 THEN PRINT RT 19, 

>0 RND R(R) <32 THEN 
(R (R) -1) ; R 
>0 RND B<R> <32 THEN 
(B(R)-IJ,Z$(fl) 

>0 RND C(fl)<32 THEN 
(C(R)-1);"X" 

>31 RND fl(R) <36 THEN 
, (R (fl) -5) ; fl 
>31 RND B(R)<36 THEN 
, (B (R) -5) ; Z* (R) 


5450 

5460 

6000 

5005 

6006 

6008 

Yl+1 

6009 
0 

6010 
5011 
6015 


INPUT R$ 

GOTO 1 

IF Z=6 THEN LET Yl=2 
IF Yl>2 THEN GOTO 6080 
IF X<>0 THEN GOTO 6080 
IF Z=6 RND X=0 THEN LET 


Yl = 


IF Z=6 RND X=0 THEN GOTO 20 


IF Ml=l THEN GOTO 6080 
IF Z=6 THEN RETURN 
IF R(l) <>0 RND R(l)<32 OR R 
(2) <>0 RND R (2) <32 OR R (3) < >0 RN 
D R(3)<32 OR R(4)<>0 RND R(4)<32 
THEN RETURN 

6016 FOR B=1 TO 4 

6017 IF R(B)+Z<36 RND R(B)>31 RN 
D fl(B)+Z<>R(l) RND R(B)+Z<>R(2) 
RND fl(B)+Z<>R(3) RND fl(B)+Z<>R(4 
) THEN RETURN 

6018 NEXT B 
6020 LET Y1=Y1+1 
605© GOTO 200 
6080 LET Yl=2 

6035 IF Ml=l OR X<>0 THEN RETURN 
6090 GOTO 600 
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Reaktionslest 


1K 


6100 

IF 

6105 

IF 

6106 

IF 

6108 

IF 

V24^1 


6109 

IF 

0 


6110 

IF 

6111 

IF 

6115 

IF 


Z=6 THEN LET Y2=2 
Y2>2 THEN GOTO 6180 
X<>0 THEN GOTO 6180 
Z=6 «ND X=0 THEN LET Y2=5 

Z=:6 RND X=0 THEN GOTO 6© 

M2=:l THEN GOTO 6180 
Z=6 THEN RETURN 
B(l) <>0 RND 6(1) <32 OR 6 
(2)<>0 RND B(2)<32 OR 6(3) <>0 RN 
D 8(3) <32 OR 6(4.) <>0 PND B (4) <32 
THEN RETURN 

6116 FOR B=1 TO 4 

6117 IF B(B)+Z<36 RND 6(6)>31 RN 
D 8(B)+Z<>B(1) RND B(B)+Z<>B(2) 
RND B(B)+Z<>B(3) RND B(B)+Z<>B(4 
5 THEN RETURN 

6118 NEXT B 
6120 LET Y2=Y2<-1 

6130 IF X<>0 THEN RETURN 
6150 GOTO 600 


6180 L.ET Y2=2 
6185 IF M2=l OR 

61Q0 GOTO 1000 
7000 LET H2=0 
7010 LET M3=0 
7020 RETURN 
7100 LET H1=0 
7110 LET M3=0 
7120 RETURN 
7200 PRINT RT 


X<>0 THEN RETURN 


7 ^ 3 ; “1 


7210 RETURN 

9990 SRUE ••MENSCH RERGERE DICH N 
IGHB" 

9991 RUN 


I 


ERSTER SPIELER 


I 


6 

T 

R 

R 

T 


UUERFLE NUN 


1234 

mmB 

XXXX 



ERSTER SPIELER 


1 


S 

i- 

R 

T 


>> UREHLE EINEN STEIN << 


234 


XXXX 



Dieses Programm mißt Ihre Reaktionszeit. 
Der Bildschirm wird für kurze Zeit schwarz 
oder grau, was von dem verwendeten Fern¬ 
sehgerät abhängt. Sobald der Bildschirm 
wieder hell wird, drücken Sie "NEW LINE". 
Ihre Reaktionszeit wird dann in Sekunden 
ausgegeben. Nach vier Testdurchläufen gibt 
der ZX 81 Ihre Reaktionszeit in Form eines 
Balkendiagramms aus, so daß Sie Ihren 
T rainingsfortschritt beobachten können. 
Nach etwas Übung mit diesem Programm 
können Sie Ihre Reaktionszeit wesentlich 
verbessern. 

5 DIM R(4) 

7 LET R=© 

1© FOR 1=1 TO 4 
. 15 PRINT “TEST 
20 PRINT 
25 FRST 

30 FOR Ü = 1 TO 100^tRND + 100 
35 NEXT U 

37 IF I^4KEY^<>••“ THEN GOTO 37 
40 SLOU 

45 POKE 16437^255 
50 POKE 16436.. 255 

55 PRINT “DRUECKEN SIE UETZT E 
INE TRSTE“ 

60 IF INKEY * = “•• THEN GOTO 60 
65 LET R(1) = (255-PEEK 16437)^5 
+ (255-PEEK 16436) ,^'50 

67 IF R(I)>R THEN LET R=RCI) 

70 PRINT 

75 PRINT “IHRE RERKTlONSZEIT 6 


ETUG 



80 

PRINT R(I):“ SEKUNDEN** 

85 

PRINT 


90 

PRINT “DRUECKEN 

SIE NxL“ 

95 

INPUT R* 


100 

CLS 


105 

NEXT 1 


11© 

CLS 


115 

PRINT “ERGEBNIS 

*• 

12© 

PRINT 


125 

PRINT **TEST 

5 ZEIT’* 

130 

FOR 1=1 TO 4 


135 

PRINT l; *• **; 


140 

FOR U=1 TO R(I) 

^30 STEP 32/ 

(P»#1O0) 


145 

PRINT **■**; 


15© 

NEXT U 


155 

PRINT 


160 

NEXT I 



TEST 1 

DRUECKEN SIE JETZT EINE TRSTE 

IHRE RERKTlONSZEIT SETUG 
0-48 SEKUNDEN 

DRUECKEN SIE N.'L 


ERGEBNIS 

TEST —> 


:eit 
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Minenfeld 1K 


Sie stehen auf einem Minenfeld, das 
unter Beschuß steht. Ihre Aufgabe ist es, 
einem verletzten Kameraden (im Spiel als X 
dargestellt) zu helfen. Um zu ihm zu kom¬ 
men, müssen Sie das Feld überqueren. Sie 
dürfen dabei in keinem Fall auf eine Mine 
C'M") treten. Wählen Sie den kürzesten 
Weg, denn das Feld steht pausenlos unter 
Beschuß und die Möglichkeit ist groß, daß 
Sie von einer Mine getroffen werden. 


10 
r •« 

PRINT 

MULT IPLIKRT lONSTRBEL 

15 
20 
\ • 

PRINT 

PRINT 

"GEEE^‘ SIE DIE 

ZRHL E 

25 

3© 

4.0 

4.5 

INPUT 
CL-S 
PRINT 
IF LEN 

Z 

"TRBELLE UON 
STR$ Z>4 THEN 

PRINT 

50 

«b * 

IF LEN 

STR$ Z>3 THEN 

PRINT 

55 
%% « 

IF LEN 

STR* Z>2 THEN 

PRINT 

5© 

IF LEN 

STR* ZM THEN 

PRINT 


5 LET R=7 
lO LET B=7 

15 PRINT RT 7,14.;"X" 

20 PRINT hT 

25 FOR 1=1 TO 5 

3© LET X=INT <RND-H4- + 1) 

35 LET Y=INT lRNDiH4. + li 
4.0 IF (X=7 RND Y=14-) OR tX=7 
ND V=0) THEN GOTO 3© 

4-5 PRINT RT X\,Y; "H" 

50 IF X=R RND Y=S THEN GuTu 


R 


11 


0 

55 

©0 

öS 

70 

75 

00 

Ö5 

90 

00 

95 

X00 

105 

110 


NEXT I 
INPUT 


? hiT ^ s 

IF THEN L.ET ß^B-fl 

IF R$=’*5*' THEN L.ET B=iß-i 

TF THEN L.ET 

IP THEN EET 

IF R=7 RND 5 = 14- THEN GOTO 


1 


GOTO 20 

PRINT “SIE HRBEN 
STOP 

PRINT “SIE »HRBEN 


GEWONNEN" 

UERLGREN" 


M 


M 


H 

MH 


55 PRINT “ 

70 PRINT 
75 FOR 1=1 TG 15 
8© IF I<10 THE.N PRIMT “ 
S5 PRINT 1: “ MRi. ^ 

90 NEXT I 


TRBELl-E UON IS 


1 

MRL 

16 

IST 

16 

2 

MRL 

16 

IST 

32 

3 

MRL 

16 

IST 

46 

4 

MRL 

i F 

IST 

64 

5 

MRL 

16 

IST 

60 

t? 

MRL 

16 

X6T 

96 

“7 

MRL 

16 

IST 

112 


MRL 

16 

IST 

126 

9 

MRL 

16 

IST 

144 

10 

MRL 

16 

IST 

160 

11 

MRL 

16 

IST 

176 

12 

MRL 

16 

IST 

192 

13 

MRL 

16 

IST 

206 

14 

MRL 

16 

IST 

224 

15 

MRL 

16 

IST 

240 


I 


M 

M 


N ^ H X 
M 

H 


M M 


Lebenserwartung 16K 


Multiplikations¬ 
tabelle 1K 


Druckt eine vollständige Multiplika- 
tionstafel jeder beliebigen Zahl aus. (1 
mal 3 = 3; 2 mal 3=6; usw.) 


Wie hoch ist Ihre Lebenserwartung? 

Dieses Programm wurde auf der Basis wissen¬ 
schaftlicher Tests und Unterlagen von Ver¬ 
sicherungen erstellt. 

Genau kann es natürlich nicht sein. Die 
ausgegebene Zahl hat nur Informations¬ 
charakter. Vielleicht ist Sie auch eine 
Mahnung an Sie, Ihren Alkohol- oder Ziga¬ 
rettenkonsum einzuschränken. Auf jeden Fall 
ein Versuch, den zu machen sich lohnen 
kann. 

5 REM "LEBENSERURRTUNG" 

10 PRINT "BITTE GEBEN SIE IHRE 
N NRMEN EIN:" 
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15 INPUT N$ 

20 IF N*="" OR CODE N*=0 THEN 
GOTO 15 

25 IF LEN N$>20 THEN PRINT “BI 
TTE KUERZEN SIE IHRE EINGRBE" 

30 IF LEN N$>20 THEN GOTO 15 
4.0 PRINT "DRNKE,“;N$ 

4.5 FOR 1 = 1 TO 30 
50 NEXT I 
55 CLS 

60 PRINT "INSTRUKTIONEN FUER D 
IE" 

65 PRINT "BERECHNUNG DER LEBEN 
SERURRTUNG" 

70 PRINT 

75 PRINT "DIESES PROGRRMH UURD 
E RUFGRUND" 

80 PRINT "UISSENSCHRFTLICHER D 
RTEN" 

85 PRINT "ENTWICKELT." 

90 PRINT "ES IST DRHER FUER EI 
NE GENRUE" 

95 PRIIMT "BERECHNUNG UNBEDINGT 
NOTWENDIG^" 

100 PRINT "DRSS SIE DIE GESTELL 
TEN FRRGEN" 

105 PRINT "RICHTIG BERNTUORTEN. 

»3 

110 PRINT 

115 PRINT -IHRE EINGRBEN WERDEN 
RH ENDE DES- 

120 PRINT "PROGRRMMES ZUWERLRES 
^ IG — 

125 PRINT -UERNICHTET. 
135 PRINT 

14.0 PRINT -WENN SIE BEREIT SIND 
..DRUECKEN- 

14-5 PRINT -SIE NEULINE- 

150 IF INKEY$<>-- THEN GOTO 150 

155 IF INKEYji = -- THEN GOTO 155 

160 GOTO 24.0 

170 FOR 1=1 TO 10 

175 PRINT RT 0^5; B* 

180 PRINT RT 0,5;fi$ 

185 NEXT I 
190 RETURN 

200 PRINT RT 18,0; *• ^*****^^*5^*** 

205 PRINT RT 18^14.-LEN N*./2; - - 

N$; - - 

210 RETURN 

215 PRINT RT 3,0; 

217 FOR 1=1 TO 12 
22© PRINT - 


225 NEXT I 
230 PRINT RT 3,0; 

235 RETURN 
24.5 LET Z = 72 
250 CLS 

255 LET R$=- »# GESCHLECHT 
260 LET B*=-C! 

265 60SUB 170 

275 GOSUB 200 

280 LET C* = -Ei:_ 

205 PRINT RT 3,0;C$ 

29© PRINT ,,-l FUER HRENNLICH- 
295 PRINT 

300 PRINT -2 FUER UEIBLICH- 
305 INPUT Z* 

310 IF Z*=-- THEN GOTO 305 
315 IF Z$<>-1- RND Z*<>-2- THEN 
GOTO 305 

320 LET G=URL Z« 

325 IF Z$=-l- THEN LET Z=Z-3 

330 IF Z$ = -2- THEN LET Z=Z+4. 

335 CLS 

34.0 LET R4l = -*^t WOHNORT #»- 


34^5 LET B* = -l 
350 GOSUB 200 
355 GOSUB 170 

360 PRINT RT 3,0;-LEBEN SIE IN 
EINER GROSSTRDT- 
365 PRINT -MIT MEHR RLS 2 MILLI 

ONEN- 

370 PRINT -EINWOHNERN?” 

371 GOSUB 375 
373 GOTO 4.10 
375 PRINT 
380 PRINT C* 

335 PRINT 

390 PRINT -1 FUER ÜR” 

395 PRINT -2 FUER NEIN” 

4.00 INPUT Z« 

4.05 IF Z*<>-1- RND Z$<>-2- THEN 
GOTO 4.00 
4.07 RETURN 

4.10 IF Z$ = -l- THEN LET Z=Z-2 
415 IF Z*=-l- THEN GOTO 450 
420 GOSUB 215 

425 PRINT -WOHNEN SIE IN EINEM 

DRT- 

430 PRINT 


00 * 

435 PRINT 


'MIT WENIGER RLS 10 O 


-EINWOHNERN?- 
440 GOSUB 375 

445 IF Z*=-l- THEN LET Z=Z+2 
450 LET RÄ=”** RRBEIT 
455 LET B* = -| 

457 CLS 
460 GOSUB 200 
465 GOSUB 170 


470 PRINT RT 3,0;C* 
475 PRINT 
480 PRINT -1 
SCHREIBTISCH- 
485 PRINT - 
490 PRINT 
495 PRINT -2 
SXG SCHWERE- 
500 PRINT - 
T UERRICHTEN" 

505 PRINT - 
510 PRINT 
515 PRINT "3 
T EINER- 
520 PRINT - 
ZUORDNEN- 
525 PRINT 


WENN SIE RN EINEM 
RRBEITEN- 

WENN SIE REGELMRES 
KOERPERLICHE RRBEI 
MÜESSEN- 

WENN SIE SICH NICM 
DER OBIGEN GRUPPEN 
KOENNEN- 


530 INPUT Z* 

535 IF Z*<>-1- RND Z*<>-2" RND 
Z*<>-3- THEN GOTO 53© 

540 IF Z*=-l- THEN LET Z=Z-2 
545 IF Z$=-2- THEN LET Z=Z-1 
550 IF Z*=-3- THEN LET Z=Z+1 
555 GOSUB 215 
560 PRINT C* 

565 PRINT 

570 PRINT -1 WENN SIE RN JEDEM 
MEHR RLS 5 1/2 S 


RNGESTRENGT RRBEIT 

WENN SIE DRS 2-3 M 
WOCHE TUN- 


RRBEITSTRG 
TUNDEN- 
575 PRINT 
EN*' 

580 PRINT 
585 PRINT 
RL IN DER- 
590 PRINT 
595 GOSUB 400 
600 IF Z*=-l" THEN LET Z=Z+4 
605 IF Z* = "2- THEN LET Z=Z-l-2 
610 LET 

620 CLS ~ 

625 GOSUB 200 
630 GOSUB 170 

835 PRINT RT 3,0;"SIND SIE UERH 
EIRRTET ODER- 
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64.0 PRINT "LEBEN SIE HIT EINE"; 

64.5 PRINT ("M FREUND?" RND G=2) 
+C"R FREUNDIN?" RND G=l) 

650 GOSUB 375 
655 GOSUB 215 

660 IF Z>="2" THEN GOTO 695 
665 PRINT "HABEN SIE EIN GUTES 
UERHRELTNIS" 

670 PRINT "ZU IHREH PARTNER?" 
675 GOSUB 375 

680 IF Z* = "l" THEN LET Z=Z+4. 

685 IF Z*="2" THEN LET Z=Z-4 
690 GOTO 720 

695 PRINT RT 3^0;"UIEUIELE JAHR 
ZEHNTE HABEN SIE" 

700 PRINT "SEIT IHREH 25.LEBENS 
UAHR" 

705 PRINT "ALLEINE GELEBT?" 

710 INPUT J 

715 LET Z=Z-INT ABS J 

720 GOSUB 215 

725 PRINT "SCHLAFEN SIE LAENGER 
RL«S •• 

730 PRINT "10 STUNDEN PRO NACHT 
^ •• 

735 GOSUB 375 

74.0 IF = THEN LET Z=Z-3 

74.5 LET CHRRRKTER »» 

750 LET = 

755 CLS 

700 GOSUB 200 
765 GOSUB 170 
770 PRINT RT 3^0;C* 

775 PRINT y 

U.RGGRESSIU“ 

780 PRINT •• 

ND’* 

785 PRINT 
700 PRINT •• 

HEN^ •• 

795 PRINT •• 

PRSST SIND** 

000 PRINT 
805 PRINT 
DCH 2 SIND*' 

810 INPUT Z* 

815 IF Z*<>**1** RND Z*<>**2** RND 
Z$<>**3** THEN GOTO 810 
820 IF Z$=:**l** THEN LET Z=Z-3 
825 IF Z* = **2** THEN LET Z=:Z-4. 

330 GOSUB 215 
835 PRINT C$ 

84.0 PRINT WENN SIE GLUECKL 

ICH SIND** 

84.5 PRINT ^ , **2 UENN SIE UNGLUEC 
KLICH SIND** 

850 PRINT ^,**3 UENN SIE UEDER 1 
NOCH 2 SIND** 

355 INPUT Z* 

860 IF Z*<>**1** RND Z$<>**2** RND 
2$<>-3- THEN GOTO 855 
865 IF Z* = **l** THEN LET Z=Z + 1 
870 IF Z* = **2** THEN LET Z=Z-2 
875 IF Z$=:**3** THEN LET Z=Z-1 
880 GOSUB 215 

885 PRINT "HRTTEN SIE IH LETZTE 
N ÜRHR*' 

890 PRINT “EIN STRRFMRNDRT WEGE 
N** 

895 PRINT **GESCHWINDIGKEITSUEBE 
RSCHREITUNG?** 

900 GOSUB 375 

905 IF Z» = **l** THEN LET Z=Z-1 
910 LET RUSBILDUNG 

915 LET B$ = **. 

920 CLS 
925 GOSUB 200 
930 GOSUB 170 
935 PRINT RT 3^0;C* 


1 WENN SIE IMPULSI 
ODER UREHZORNIG SI 

•2 UENN SIE RUSGEGLIC 
ENTSPRNNT UND RNGE 

‘3 WENN SIE WEDER 1 N 


94.0 PRINT y^**l WENN SIE DIE SCH 
ULE“ ^ ••RBGESCHLOSSEN HRBEN** 

94.5 PRINT gi>**2 MIT RUSZEICHNUNG 

?« 

950 PRINT ^^**3 NICHTS UON RLLED 
EM** 

955 INPUT Z* 

960 IF Z*<>**1** RND Z$<>*’2** RND 

Z$<>**3** THEN GOTO 955 
965 IF Z$="l“ THEN LET Z=Z+1 
970 IF Z» = “2** THEN LET Z=Z+2 

975 IF Z* = **3“ THEN LET Z=Z-1 

980 GOSUB 215 

985 PRINT “UERDIENEN SIE MEHR R 
LS** 

990 PRINT **125 O00 DM IM URHR 7 

995 GOSUB 375 

X000 IF Z* = **l“ THEN LET Z=Z-2 

1005 LET 

1015 CLS 
1020 GOSUB 200 

1025 GOSUB 170 

1030 PRINT RT 3^0;**HRT EINER IHR 
ER GROSSELTERN** 

1035 PRINT **DRS 85. LEBENSURHR ER 

REICHT BZW.“ 

104.0 PRINT **UEBERSCHRITTEN7** 

104.5 GOSUB 375 

1850 IF Z* = **l** THEN LET Z=Z+2 

1055 IF Z$ = **2** THEN GOTO 1090 

1860 GOSUB 215 

1065 PRINT **HRBEN RLLE UIER GROS 
SELTERN** 

1070 PRINT **095 80.LEBENSJRHR ER 

REICHT BZW.** 

1075 PRINT ••UEBERSCHRITTEN7“ 

1080 GOSUB 375 

1085 IF Z$ = **l** THEN LET Z=:Z-l-6 

1090 GOSUB 215 

1095 PRINT ‘‘IST EINER IHRER ELTE 
RNTEILE** 

1100 PRINT ‘'UOR DEM 50.LEBENSÜRH 
R EINEM“ 

1105 PRINT **SCHLRGRNFRLL ODER EI 
NER“ 

1110 PRINT •*HERZRTTRCK ERLEGEN?“ 
1115 GOSUB 375 

1120 IF Z$ = **l** THEN LET Z=Z-4. 
1125 GOSUB 215 

1130 PRINT ''LEIDEN EINER IHRER E 
LTERTEILE** 

1135 PRINT **UND/ODER EINER IHRER 
BRUEDER/“ 

114.0 PRINT “EINE IHRER SCHWESTER 
r4 UNTER •• 

114.5 PRINT **50 JRHRE RN EINEM HE 
RZFEHLER, ** 

1150 PRINT “KREBS ODER DIRBETES 
SEIT DER“ 

1153 PRINT “KINDHEIT?“ 

1155 GOSUB 375 

1160 IF Z* = **l** THEN LET Z=Z-3 
1165 GOSUB 215 

117© PRINT C* 

1175 PRINT ^^*'1 WENN SIE MEHR PL 

S ZWEI** 

1180 PRINT •* PACKUNGEN ZIGRRETT 
EN PRO TAG** 

1185 PRINT ’• RAUCHEN** 

1190 PRINT ^ w **2 1-2 PACKUNGEN“ 

1195 PRINT jj‘‘3 1/2 BIS 1 PRCKUN 

G“ 

1200 PRINT ^>“4. WENN SIE NICHT R 

RÜCHEN •• 

1205 INPUT Z* 

1210 IF Z*<**1** OR Z*>“4** THEN GO 
TO 1205 
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IF Z* = "l'* THEN LET 2=Z-8 

IF Z* = **2’' THEN LET Z=Z-6 

— - THEN LET Z=Z-3 


1 UENN SIE DAS REO 


ly4. FLRSCHE LI 


1215 
1220 

1225 IF Zi="3' 

1230 GOSUB 215 
1235 PRINT C* 

124.0 PRINT , ' 

UIURLENT UON" 

124-5 PRINT " CR. 

OUOR PRO TRG" 

1250 PRINT ” KONSUMIEREN" 

1255 PRINT UENN SIE UENIGER 

ZU SICH" 

1260 PRINT " NEHMEN" 

1265 PRINT .,"3 UENN IHR KONSUM 
1 UEBER-" 

laZ© PRINT " SCHREITET" 

1275 INPUT Z* 

1280 IF Z*<"1" AND 2*>"3" THEN 6 
OTO 1275 

1285 IF Z*="l" THEN LET Z=Z-1 
1290 IF Z*="3" THEN LET Z=Z-5 
1295 GOSUB 215 

1300 PRINT "HABEN SIE UEBERGEUIC 
HT?" 


1305 PRINT 
1310 PRINT 
1315 PRINT 


.330 

1335 


^ -.C* 

MEHR RLS 20 KG" 
"2 15-20 KG" 

1320 PRINT "3 5-15 KG" 

1325 PRINT "4- KEIN UEBERGEUICHT" 

INPUT Z$ 

IF Z*<"1" OR Z$>"4-" THEN GO 
TO 1330 

134-0 IF Z$ = "l" THEN LET Z=Z-8 

1345 IF Z$="2" THEN LET Z=Z-4 

1350 IF Z$="3" THEN LET Z=Z-2 

1355 IF Z*="4" THEN LET Z=Z+1 

1360 GOSUB 215 

1-365 PRINT C$ 

1370 PRINT 

1375 IF G=1 THEN PRINT "1 UENN S 
IE SICH JREHRLICH"/" UNTERSUCHE 
N LASSEN" 

1330 IF G=2 THEN PRINT "1 UENN S 
IE SICH JREHRLICH UON"^" EINEM 
GYNREKOLOGEN UNTERSUCHENLRSSEN" 
1385 PRINT "2 UENN DAS NICHT DER 

FALL IST" 

1390 GOSUB 400 

1395 IF Z$="l" THEN LET Z=Z+2 

1400 LET = 

1410 CLS 
1415 GOSUB 200 
1420 GOSUB 170 
1425 PRINT RT 3^0;C* 

1430 PRINT ,,"1 UENN SIE UUENGER 
SIND RLS 30"^" URMRE" 

1435 PRINT "2 UENN SIE ZUISCHEN 
30 UND 40 UAHRE SIND" 

1440 PRINT "3 40-50" 

1445 PRINT "4 50-60" 

1450 PRINT "5 RELTER RLS 70 JAHR 

E" 


1455 INPUT Z$ 

1460 IF Z*<"1" OR Z»>"5" THEN GO 
TO 1455 

1465 LET Z=Z+(2 AND Z*="2")+(3 fl 
ND Z*="3")+(4 AND Z*="4")+(5 AND 
Z*="5") 

1470 LET Z=Z+URL Z* 

1475 IF Z$="l" THEN LET Z=Z-1 
1480 IF Z$<>"4" AND Z$<>"5" THEN 
GOTO 1505 
1435 GOSUB 215 

1490 PRINT "ARBEITEN SIE NOCH IM 
MER?" 

1495 GOSUB 375 

1500 IF Z*="l" THEN LET Z=Z+3 
1505 CLS 


1510 PRINT "******************** 
it***********" 

•1515 PRINT AT 0,14-LEN N$-/'2; " "; 

N$; " " 

1517 PRINT ,y"IHR UORAUSSICHTLIC 
HES ALTER;" 

1520 DIM L*(S,32) 

1523 PRINT 

1525 LET Z*=(" " AND LEN STR* Z= 

2)+(" " AND LEN STR* Z=l)+STR* Z 

1528 FAST 

1530 FOR 1=1 TO 3 

1535 FOR J=0 TO 7 

1540 LET C=PEEK (7680+tCODE Z*(I 
)+1)»S-S+J) 

154S FOR K=8*I+1 TO 1*8-7 STEP - 
1 

1550 LET L* (U + l.K) =C-HR* ( (C-2»IN 
T (C/'2) ) #128) 

1555 LET C=INT (0x2) 

1560 NEXT K 

1565 NE.XT xJ 

1570 NEXT I 

1573 SLOU 

1575 FOR 1=1 TO 3 

1530 PRINT AT 1+3^2;L*(I) 

1585 NEXT I 
1595 gglN;}; 

1605 PRINT ,™DIE BERECHNUNG IHR 
ES UORAUS-" _ 

1610 PRINT "SICHTLICHEN HOECHSTR 


_TERS IST' 
1615 PRINT 
ENDEN" 

1620 PRINT 
KTOREN" 
1625 PRINT 
EIBEN" 

1630 PRINT 


"UNTER KEINSTEN UMSTfl 
"BINDEND,DA EINIGE FR 
"UNBERUECKSICHTIGT BL 
"MUSSTEN." 


******************************** 
IHR UORflUSSICHTLlCHES ALTER: 



mm-HT IGER HI N U£ I 


DIE BERECHNUNG IHRES UORRUS- 
SICHTLICHEN HOECHSTRLTERS IST 
UNTER KEINSTEN UMSTRENDEN 
BINDEND,DR EINIGE FRKTOREN 
UNBERUECKSICHTIGT BLEIBEN 
MUSSTEN. 


Mcrihemotik-Test 1K 

Das Programm testet Ihre Fähigkeiten auf 
dem Gebiet der Addition und der Subtrak¬ 
tion. Sie haben eine Wahl zwischen zwei 
Schwierigkeitsstufen. 
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Nach 20 Rechnungen gibt das Programm eine 
Wertung aus und teilt Ihnen mit, wieviele 
falsch und wieviele richtig waren. 


5 LET R=:© 
1© LET F=:0 
15 PRINT 
a© PRINT 
as PRINT 
30 PRINT 
INPU7 




3S 

^0 


•’S) 
fi 


RDDITION' 

SUBTRPKTION” 


IF THEN LET F=1 

4-5 IF fi-a TMEN L.ET F = -l 

5© IF THEN LET 

55 IF R=a THEN LET 
60 CLS 

65 PRINT “D LEICHT** 

70 PRINT SCHUER** 

75 INPUT R 

80 IF R=:l THEN LET g = 

85 IF Rs=a I HEN LE i 

100 FOR 1=1 TO a© 

105 CLS 

110 LET X = INT (RNDftG-l-1) 

115 LET Y=F*<IMT (RND^G+D) 
la© PRINT x;R*;RBS Y;'*=••; 
laS INPÜT B 
130 PRINT X-fY 

135 IF B=X+Y THEN GOTO 155 
140 PRINT IST FRL5CH*’ 

145 LET F=F+1 
150 GOTO 165 

ISS PRINT ••RICHTIG - BRRUO*^ 

160 LET R=R-H 

165 PRINT , ^ IRGENDEINE TRSTE"’ 
170 IF 1NKEY$ = **‘' THEN GOTO 170 
175 NEXT I 
180 CLS 

135 PRINT R; •• RICHTIG ^ *• : F: *• F 

RLSCH- 


Abenteuer 16K 


Wenn Sie schon einmal in London Urlaub 
gemacht haben, kennen Sie die Situation: 
Ein unüberschaubares Autobusnetz, weit 
über 200 U-Bahn-Stationen, wovon manche an 
Sonn- und Feiertagen geschlossen haben. 
Touristen haben es nicht leicht in 
Englands Metropole. Genau das wird in 
diesem einfachen Abenteuer-Programm behan¬ 
delt: Durchqueren Sie London und kommen 
Sie zu genug Geld, um die Wächter des 
Buckingham-Palastes zu bestechen. Wie 
schon erwähnt, ist dieses Abenteuer-Pro¬ 


gramm (das ursprünglich für den ZX 80 
geschrieben wurde) sehr einfach, was Sie 
nach einigen Spielen bestimmt merken wer¬ 
den. Aber fordern Sie Ihre grauen Zellen! 
Ändern Sie, verbessern Sie oder lassen Sie 
sich komplett neue Gags einfallen! (für 
Anfänger: bauen Sie das Programm so um, 
daß es zu Beginn nach Ihrem Namen fragt 
und ihn dann im Programm öfter verwendet). 

ZX Computing/Summer 1982 


1 RRND 

10 PRINT TRB 6j"TOURIST TRRP" 

30 GOSUB1630 
50 LET X=0 
60 LET S=30 
70 LET U=1 

80 PRINT .w“HERE UE GO ON R TR 
XP THROUGH*' 

9© PRINT •• LONDON TOUN , . . 

100 PRINT 

110 PRINT “YOU HRUE *30^RND YOU 
RE TRYING‘‘ 

120 PRINT "TO GET TO BUCKINGHRH 
PRLRCE •• 

130 PRINT •• CTHE PRLRCE IS ON FO 
QTPRTH 10)" 

135 PRINT 

14.0 PRINT "IF YOU GET THERE YOU 
LL NEED" 

150 PRINT " S35 TO BRIBE YOUR 

URY IN ’• 

150 PRINT 

170 PRINT ^"PRESS NEULINE" 

1S0 INPUT R$ 

190 IF R$<>"” THEN STOP 
200 GOSUB ISIO 

aao IF y<i and int (rnd*i0+i) >8 

THEN GOTO 1730 

aas IF U<1 THEN LET U=1 

a30 PRINT " THIS IS FOOTPRTH " 

: U 

350 IF U=10 THEN GOTO 1690 
370 PRINT "SO YOU RRE B".;CHR$ ( 
166-Ul) ; ”■ FROH THE PRLRCE" 

380 PRINT 

385 IF S<1 THEN LET S=INT (RND* 
1 ) 

290 PRINT •’YOU HRUE IN Y 

OUR POCKETS" 

300 LET X=X*fl 
310 PRINT 

330 PRINT “JVWV TH IS IS PROBLE 
M ”; X 
330 PRINT 

350 LET K=a+INT tRND*5) 

360 PRINT 

370 PRINT "YOURE FRCING ■";CHR$ 
C156+K);"B "; 

380 LET R = INT tRND*4. + l) 

390 IF R=1 THEN PRINT "DOORS" 
40© IF n=2 THEN PRINT "SHOPS" 
4.10 IF R=3 THEN PRINT "PEDESTRI 
RN"^"CROSSINGS" 

4.30 IF R=4. THEN PRINT "TUBE STR 
TXON"^"ENTRRNCES" 

4.50 PRINT 

4-60 PRINT "UHICH ONE UILL YOU U 
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4.70 INPUT B 
4.73 LET B = INT B 

4.75 IF B>K OR B<1 THEN GOTO 47® 
4.80 GOSUB iei0 

500 IF INT (RND*10) <4- OR B=R TH 
SN GOSUB 1170 
530 LET C = INT (RNE>*4. + 1) 

54-0 IF 0 = 1 THEN PRINT •■FOOL".; 

550 IF 0=2 THEN PRINT "IDIOT"; 

560 IF 0=3 THEN PRINT "HELP".: 

570 IF 0=4. THEN PRINT "SURPRISE 

520 PRINT " YOURE FRCE TO FROE" 

* ■ XT H R * * ‘ 

'e.30 L.ET R = INT (RND9f-“7 + l) 

64.0 IF «=4 THEN PRINT "GREEN 

SS0 IF R=5 THEN PRINT "BLUE 

66© IF R=6 THEN PRINT "BRIGHT R 

ED "; 

67© IF R=7 THEN PRINT "SICKLV Y 

ELLOU 

660 LET R = INT <RNDi«-54-lJ 

690 IF R=1 THEN LET B$="SMILING 

POLICEMRN" 

70© IF R=:2 THEN LET B$ = "BEUXLDE 
RED TOURIST" 

71© IF R=3 THEN LET B*="TICKET 
XNSPECTOR" 

7S0 IF R=4 THEN LET B$="PRRKING 
URRDEN" 

730 IF THEN LET B$="BUS DRI 

UER " 

740 LET R=INT (RND^T+lü 

750 IF R=1 THEN LET C$="PRRKING 

TICKET" 

310 IF R=:2 THEN LET C$ = "PRSS TO 
THE TOUER" 

S20 JF R=3 THEN LET C$="POSTCRR 
D OF TRRFRLGER SOURRE" 

630 IF R=4 THEN LET C$="MRP OF 
CRHBRIDGE" 

84© IF R=5 THEN LET C$=”HONKEY 
ON R STICK" 

850 IF R=6 THEN LET C$="PRCK OF 
FISH RND CHIPS" 

660 IF R=7 THEN LET C$="RINGSID 
E SERT RT OXFORD CIRCUS" 

900 PRINT B$^"WITH R" 

910 PRINT C$ 

920 PRINT 

930 PRINT "HOU DO YOU RERCT7" 
04© PRINT 

950 PRINT "SPLIT(1)"^"SUERR(2)" 
."SCRERH FOR HELP(3)" 

955 PRINT "POKE RT IT UITH R ST 
ICK(4)"^"SRY YOU DONT SPERK ENGL 
X5H(5)" 

960 PRINT "SRY YOURE R STRRNGER 
IN TOUN(6) BOOK R FLIGHT TO PRR 
X6 <7> ” 

965 PRINT "HRIL R CRBC8i^^"BUY 
R RXOT SHIELD(9>"^"POINT THE DT 
HER yRY(10) 7" 

1000 INPUT R 

1001 LET R=INT R 

1005 IF R>10 OR R<1 THEN GOTO 1© 

0© 


1010 LET B=INT (RND*10+1) 

1020 GOSUB 1610 

1030 IF INT CRND*5+i:^ =1 OR R<B T 
HEN LET R=B 

104© IF R=B THEN PRINT "YOU FOOL 
ED THE ";B$ 

105© IF R=B THEN LET S = S4-INT (RN 
D*10+l) 

1060 IF R=:ß THEN PRINT "RND NOU 
HPUE $".;s 

1070 IF R=B THEN LET U-U^JNT (RN 


i> -3f. 4 -i-1) 

1SS0 IF U>10 THEN LET y=10 
1090 PRINT 

1100 IF fioB THEN PRINT "THE ";B 
$:” OUTUITTED”,"YOU” 

1120 IF ROB THEN LET S=S-INT tR 
ND ^f.5 +1) 

1130 IF U<10 THEN PRINT "YOU RRE 
CLOSE TO " "FOOTPRTH ■";OHR* (1 

50+U); 

114-0 GOTO 100 

1170 LET R = INT (RND»4. + 1) 

1180 GOSUB 124.0*. {R = l) +134.0» (fl =2> 
+ 1380» (fl=3) +1510» (fl=4.) 

1190 GOTO 190 

124.0 PRINT TflB 8; "YOUUE FALLEN D 
OUN" 

1250 LET B=INT (RND»4. + 1) 

1260 IF B=1 THEN PRINT " IN FRON 
T OF BIG BEN" 

1270 IF B=2 THEN PRINT " IN THE 
STRAND" 


1280 IF B=3 THEN PRINT "IN FRONT 
OF THE TRflFFIC","IN PICCflDILLY 


C? IRCUS " 

129© IF B=4 THEN PRINT INT (RND^ 
994^1) ; " STEPS TO THE THRMES" 

X310 LET U=U-1 

1320 LET S=S-INT (RND*2+1) 

1330 RETURN 

1340 PRINT " YOU RRE CRUGHT 

RIDING ON R"^" NO. ";INT (RN 

D^99+l);" BUS UITHOUT R TICKET" 


1350 LET U=U-1 

1360 LET S=S-INT (RND^24-1) 

1370 RETURN 

1360 PRINT TRB S;"YOU GRIN R " 
X390 LET D = INT (RND*6 + l]i 
1400 IF D=1 THEN PRINT TRB 3 ;"ST 
RLE SRLRD ROLL" 

1410 IF D=2 THEN PRINT "TICKET T 
0 THE PLRNETRRIUM" 

1420 IF D=3 THEN PRINT "GOOD SER 
T RT COUENT GRRDEN" 

1430 IF D=4 THEN PRINT "TUBE TIC 
KET TO SHEPHERDS BUSH" 

1440 IF D=5 THEN PRINT "SERT UPS 
TRIRS ON R "/INT (RND BU 


1450 IF D=6 THEN PRINT "BLRCK EY 
E FROM R RÜDE LOCRL" 

147© LET S=:S + INT (RND *5+1) 

1480 LET U=U+INT (RND*3+1) 

1490 IF U>10 THEN LET U=10 
1500 RETURN 

1510 PRINT "YOU FIND fi HRP OF LO 
HDON" 

152© PRINT 
1530 PRINT 

1540 PRINT "CHOOSE YOUR BONUS (U 
P TO $5)" 

1550 INPUT R 

157© LET S=S+R*(R<6) 

1580 LET U=U-INT (R/2) 

159© RETURN 

1615 FOR H=1 TO 100+RND 
1620 NEXT M 
1625 CL5 

1630 FOR M=1 TO 5 
3.640 PRINT 
1650 NEXT M 
1SS0 RETURN 

1690 PRINT "YOU RRE RT THE PRLRC 
5 GRTE" 

1700 PRINT "DO YOU HRUE *35 TO B 
RXBE YOUR" 

1710 PRINT "URY XN7 PRESS N>^L TO 
FIND OUT" 

1720 INPUT R$ 
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THEN PRINT 
50 YOUUE'*. • 


1730 
174-0 
’^YOU 
SEEN 
174-5 
XI.ED 
HRDED. 

1750 IP SOS THEN GOTO 174-0 
17S0 PRINT “YES ^YOU HRVJE $“;S 
1770 PRINT "THE RED CRRPET RURIT 
5 YOU...“ 

1750 RUN 1770 


GOSUB 1610 
IF SOS RND U>5 
HRD ONLY $‘’;S;“ 

DEPORTED. . . •• 

IF U<1 THEN PRINT '*YOUUE 
RS R TOURIST... RND BEEN 


FR 

BE 


TOURIST TRRP 

HERE UE GO ON R TRIP THROUGH 
LONDON TOUN ... 

YOU HRUE $30,RND YOURE TRYING 
TO GET TO BUCKINGHRM PRLRCE 
iTHE PRLRCE IS ON FOOTPRTH lO) 

XF YOU GET THERE YOULL NEED 
$35 TO BRIBE YOUR URY IN 

PRESS NEULINE 


Golf 1K 


Eine Golf-Simulation auf dem IK ZX 81. . 
Sie müssen den Ball mit so wenig Schlägen 
wie möglich in das mit dem Fähnchen mar¬ 
kierte Loch schießen. 

Die jeweilige Entfernung des Balles zum 
Loch wird angezeigt. Sie müssen den ge¬ 
eigneten Schläger bestimmen und eingeben. 
Mit manchen Schlägern können Sie putten, 
also die letzten kurzen Schläge ins Loch 
tun, andere dagegen sind nur für Weit¬ 
schüsse geeignet. 

Viel Glück! 


1 l_ET Z1=0 
5 l-ET Z=0 

10 t-ET E = iNT tRND*l£0+200» 

15 LET 2=2+1 

20 PRINT ••ENTFERNUNG ZU 

»t . «* « ^ 

23 LET Z1=:Z1^1 
25 IF E<10 THEN GOTO 150 
30 FOR 1=1 TO EXIO 
35 PRINT RT 12,I;--** 

4-0 NEXT I 

4-5 PRINT RT 4-, 0; •'SCHLREGER (1- 
20 ) 

50 IMPUT S 

55 IF S<1 OR S>20 THEN GOTO 50 


60 

65 

70 

75 

80 

85 

Q0 

95 

100 

.REGE 

HO 

150 

155 

160 

165 

170 

172 

173 
174- 
175 


CLS 
LET E = 
XF E>1 
IF E<- 
IF E>1 
PRINT 
IF E > 1 
CLS 
PRINT 
GETAN 
STOP 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


E-INT {RND^S*10+S) 
THEN GOTO 20 
1 THEN LET E=RBS E 
THEN GOTO 20 
•'EINGELOCHT“ 

OR Z<i3 THEN GOTO lO 

“SIE HABEN “;Zl;** SGF 


AT 7.0; “li“ 



ISO PRINT RT 14..E+l;“0“ 
185 GOTO ^5 

ENTFERNUNG ZU L.7:5 


SCHLREGER (1-20)7 



Zahlenreihe 1K 


Ein Spiel, das Ihre grauen Zellen in 
Bewgung bringt! 

Sie müssen eine Zahlenreihe ordnen, und 
zwar von 1-9. Bei jedem Zug können Sie 
einen Zahlenblock von beliebig vielen 
Zahlen wenden. 

Wenn die Reihe beispielsweise lautet: 
721346589 

und der Computer fragt "Wieviele soll ich 
wenden?" geben Sie "3" ein. Dann sieht die 
Reihe so aus: 

127346589 

Das liest sich schwieriger als es ist. Nach 
einigen Zügen werden Sie die Technik he¬ 
rausbekommen haben. 
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Wenn Sie es geschafft haben, die Zahlen¬ 
reihe zu ordnen, teilt Ihnen der ZX 81 
mit, wieviele Züge Sie gebraucht haben. 


5 

LET Z=© 



10 

LET 

* * 


15 

FOR 1=1 TÜ 9 



20 

LET R$(I.>=CHR$ 

(INT 

{RND#9+ 

29> 




25 

FOR U=1 TD I-l 



3© 

IF P$ V I) =P$ VU) 

THEN 

GOTO 2© 

35 

NEXT U 



4-0 

NEXT X 



50 

LET 



SS 

RKiN» 

DIE REIHE.” 

60 

PRINT 



65 

PRINT HS 



7© 

PR INT 



75 

PRINT “UIEUXELE 

■öOLL 

ICH UE 


NDEN-?" 

80 INPUT P 

88 IF P=0 THEN STOP 

Q0 IP P>9 THEN GOTO 3© 

93 LET 

95 FOR 1=1 TO P/9 
10© l-ET B$=R$<I) 

105 L.ET i I) =P$ (R-I> 

110 LET R${P-X;=ß$ 

115 NEXT I 

120 IF «$ = •• 1234.5S789** THEN GOTO 
130 

122 CL5 
125 GOTO 4.0 
130 Cl-S 

135 PRINT “SIE SCHRFFTEN ES IN 
“ZUEGEN.“ 

DRS IST DIE REIHE: 

72134.6589 

UIEUIELE SÖl-E ICH UCNDEN? 


Cube 16 K 


Das "Cube"-Programm ist eine Simulation 
eines der neuesten Produkte des Zauber¬ 
würfel-Erfinders Ernö Rubik. Er machte 
seinen Rubik's Cube leichter, indem er die 
Anzahl der Einzel Würfel pro Seite von neun 
auf vier reduzierte. 

Mit dem ZX 81 und diesem Programm können 
Sie ausprobieren, um wieviel leichter der 
neue Mini-Rubik's Cube geworden ist. 

Für alle, die den Rubik's Cube nicht ken¬ 
nen: Probieren Sie einfach dieses Pro¬ 
gramm! 


Besonders interssant ist, daß das "Cube"- 
Programm den Würfel nicht als Netzplan, 
sondern dreidimensional darstellt - von 
zwei verschiedenen Ansichten! 

Nach einer kurzen Gewöhnungszeit werden 
Sie sich schnell zurecht finden. Der Com¬ 
puter mischt den Würfel jedesmal zu Beginn 
des Spieles. Die Aufgabe ist, ihn in 
möglichst wenigen Zügen wieder zu ordnen. 
Sie geben die Bewegungen ein wie folgt: 
Waagrechte Scheiben ("Row") heißen "R". 
Senkrechte Scheiben ("Column") heißen "C"; 
die vordere bzw. die hintere Lage 
("Layer") wird mit "L" bezeichnet. 

Sie geben einfach den entsprechenden Code¬ 
buchstaben zusammen mit der Zahl der je¬ 
weiligen Scheibe ein, also zum Beispiel 
"R2" oder "CI". Welche Scheibe mit welcher 
Zahl bezeichnet wird, merken Sie schneller 
während des Spiels, als wir es hier be¬ 
schreiben könnten. 


Viel Spaß beim Tüfteln! 


10 

20 

30 

4.0 

50 

60 

70 

80 

90 

leo 

110 


FOR 1=1 TO 8 
FOR Ü=1 TO 6 
LET X(I,.U)=U 
NEXT U 
NEXT I 
GOSUB 500 
PRINT PT 20^©j 


PCTXONT 


120 

130 

14.0 

150 

150 

B$<> 

170 

110 

180 

^ ft 

’ 190 
200 
210 
220 
230 
24.0 
250 
260 
270 
230 
290 
300 
310 
320 
330 
34.0 
350 
360 
370 
330 
390 
4.00 


INPUT R$ 

LET B*=P$(1) 

IF B$ = “E‘' THEN STOP 
LET RCF=CODE (P$(2))-28 
IF B$<>“R“ RND B$<>“C“ RND 
“L“ THEN GOTO 110 
IF RCF<1 OR RCP>2 THEN GOTO 

PRINT PT 20^0;“NO. OF TURNS 

INPUT N 

IF N<1 OR N>3 THEN GOTO 130 

IF B$=“R“ THEN GOSUB 260 

IF B$=“C“ THEN GOSUB 310 

IF B$=“L“ THEN GOSUB 360 

GOSUB 1000 

GOTO 110 

LET RO=RCF 

FOR K=1 TO N 

GOSUB 1200 

NEXT K 

RETURN 

LET CO=RCF 

FOR K=1 TO N 

GOSUB 14.00 

NEXT K 

RETURN 

LET FP=RCF 

FOR K=1 Tu N 

GOSUB 1600 

NEXT K 

RETURN 
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500 FRST 

510 LET SU=0 

52© LET SU=SU-I-1 

530 IF SU>2 THEN GOTO 700 

54.0 LET RO = INT (RND*2) +1 

550 LET N = XNT l*RND^3) +1 

SSO FOR K=:l TO H 

570 GOSUB 1200 

580 NEXT K 

520 LET CO=INT (RND*2)+1 
600 LET H=:rINT (RND^eS) +1 
61© FOR K=:l TO N 
620 GOSUB 1400 
630 NEXT K 

640 LET FRäXNT CRND^2) -5-1 
65© LET N = INT ^RND^S) -J-1 
660 FOR K=1 TO N 
670 GOSUB 1600 
680 NEXT K 
62© GOTO 52© 

780 GOSUB 300 
710 GOSUB 1000 
72© RETURN 

300 SLOU 

802 FOR 1=0 TO 12 
804 PLOT I.. 7 + 1 
806 NEXT I 

803 FOR 1=0 TO 15 
81© PLOT 13+1^20 
812 NEXT I 

814 FOR 1=0 TO 12 

816 PLOT 27-1.. 12-1 

818 NEXT I 

820 FOR I=© TO 14 

322 PLOT 14-1^6 

824 NEXT I 

826 FOR 1=0 TO 16 

828 PLOT 0^3+1 

83© NEXT I 

332 FOR X=0 TO 16 

834 PLOT 13^21+X 

836 NEXT I 

838 FOR J=0 TO 16 

840 PLOT 28,21+1 

342 NEXT I 

844 FOR 1=0 TO 15 

846 PLOT 13+1,37 

848 NEXT J 

850 FOR X=0 TO 13 

852 PLOT 1,24+1 
854 NEXT I 

856 PRINT RT 4,0:‘*LEPT‘* 

853 PRINT RT 12, •'BOTTOM*' 
860 PRINT RT 1,S;“BRCK- 

200 REM DRRU CUBE FRRME 

202 FOR 1=0 TO 16 

204 PLOT 32+1,6 

206 NEXT I 

908 FOR 1=0 TO 15 

210 PLOT 32,7+1 

212 NEXT I 

214 FOR 1=0 TO 16 

916 PLOT 32+1,23 

218 NEXT I 

920 FOR 1=0 TO 15 

222 PLOT 48,7+1 

924 NEXT I 

926 FOR 1=0 TO 13 

928 PLOT 32 + 1.. 24 + 1 

23© NEXT I 

932 FOR 1=0 TO 13 

934 PLOT 48+1,24+1 

936 NEXT I 

238 FOR 1=0 TO 13 

240 PLOT 48+1,7+1 

942 NEXT I 

944 FOR 1=0 TO 15 

246 PLOT 46+1,37 
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946 

250 

252 

254 

256 

958 

260 

262 

264 

966 

968 

970 

972 

974 

1000 

1001 

1005 

1010 

1015 

1020 

1025 

1030 

1035 

1040 

1045 

1050 

1055 

1060 

1065 

1070 

1075 

1080 

1085 

1020 

1025 

1100 

1105 

1110 

1115 

1120 

1200 

1201 

121 © 

1220 

1230 

124© 

1250 

1260 

1270 

1280 

1220 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1320 

1325 

1400 

1401 
1410 
1420 
1430 
1440 
145© 
1460 
1470 
1480 
1420 
1500 
1510 
1520 
1530 
1540 


HEXT I 

FOR 1=0 TO 16 
PLOT 61,20+1 
NEXT I 

PRINT RT 16,26; -RIGHT'- 
PRINT RT 12,18.; - FRONT- 
PRINT RT 1,24;-TOP- 
FOR 1=30 TO 42 STEP 2 
PLOT 1,37 
NEXT I 

FOR 1=17 TO 22 STEP 2 
PLOT 1,6 
NEXT I 
RETURN 

REM PRINT CURRENT STRTUS 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
RETURN 

REM ROTRTE R 
FOR 1=1 TO 3 
FOR U=1 TO 6 
LET Y (I,cJ) =X {X,U) 

NEXT U 
NEXT I 

LET U=2#(RO-l) 


RT 

10 

. 1; C$ ( 

1 

,X (3,55 5 


RT 

6, 

5;C$ (1 

, 

X(7,5)) 


RT 

14 

. i; c$ ( 

i 

,X(1,5)) 


RT 

10 

.*5; C* C 

1 

,X(5,5)) 


RT 

s. 

8; C$ (1 


X(7,4)) 


RT 

5.. 

12;C$ C 

1 

..X (8..4) ) 


RT 

9. 

8; C$ i 1 


X(5,4)) 


RT 

9. 

12;C$( 

1 

, X(6,4) ) 


RT 

17 

..2; C$r ( 

1 

,X(1,6) ) 


RT 

13 

^6; ( 

1 

,X(5,6)) 


RT 

17 

,6;c*( 

1 

,X(2,6)) 


RT 

13 

10; c* 

( 

1 . X (6,6 } 

) 

RT 

8, 

12;c$( 

1 

,X(3,1)) 


RT 

4, 

23;C$( 

1 

,X(7,1)) 


RT 

8, 

23; C$ ( 

1 

, X (4,1) ) 


RT 

4, 

27;C$( 

1 

,X(8,1)) 


RT 

12 

,IS;C$ 

( 

1,X(3,2) 

) 

RT 

12 

^22; C* 

( 

1,X(4,2) 

) 

RT 

16 

, 18; C$ 

( 

1,X (1,2) 

) 

RT 

16 

.22;C$ 

c 

1,X (2,2) 

) 

RT 

10 

,25;C$ 

( 

1,X (4,3) 

) 

RT 

8 , 

22; C$ ( 

1 

,X(8,3)) 


RT 

14 

,25;C$ 

( 

1,X(2,3) 

) 

RT 

10 

,22;C$ 

( 

1,X(6,3) 

) 


ROU 


LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

IF 


X (2+U,3) =Y(1+U,2) 
X (6+U,3) =Y (2+U..2) 
(6+U,4)=Y(2+U,3) 
X(5+U,4)=Y(6+U,3> 
X C5+U,5) =Y(6+U,4J 
(1+U,5) =Y C5+U,4) 

( 1+U..2) =Y C5+U..5) 
(2+U,2J =Y(1+U,5) 

. SU=6 


X 
X 
X 

RO = l 


THEN 


IF RO=2 THEN LET SU=1 
LET X (2+U,SU) =Y (1+U,SU) 
LET X(6+U,SU)=Y(2+U,SU) 
LET X (5+U,SU) =Y(6+U,SU) 
LET X(1+U,SU>=Y{5+U,SU> 
RETURN 

REM ROTRTE R COLUMN 
FOR 1=1 TO 8 
FOR J=1 TO 6 
LET Y(I,U)=X(I,U) 

NEXT ü 
NEXT I 
LET U=CO-l 

LET X C3+U,1) =Y(1+U,2) 
LET X (7+U,1)=Y(3+U,2) 
LET X (7+U,43i =Y (3+U, 1) 
LET X (5+U,4) =Y (7+U,1) 
LET X (5+U,6> =Y (7+U,4> 
LET X (1+U.. 65 =Y <5+U,45 
LET X (l+U.^2) =Y (5+U,6) 
LET X (3+U,25 =Y (1+U,6) 

IF CO=l THEN LET SU=5 
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1550 IF CO=S THEN LET SU=r3 
1560 LET X {3-J-U^ SUJ =Y (l+U^ SU) 
1570 LET X t7+U..SU) =¥ (3+U^SU) 
1500 LET X (5+U..SU) -Y (7+U^SU) 
1590 LET X (14-ü, SU) =y <5+U , SU) 
1595 RETURN 

1600 REM ROTRTE R PfiCE 

1601 FOR 1=1 TO S 
1610 FOR cJ = l TO 6 
1620 LET Y(I^ü)=X(I,U) 

1630 NEXT J 

164-0 NEXT I 

1650 LET U=4-^^(FR-1) 

1660 LET X(3+U^1)=Y(1+U^5) 
1670 LET X (4-+U, 1) =Y (3+U^5) 
1680 LET X (4-+y ^3) =Y (3+U^ 1) 
1690 LET X (2+U>3) =Y (4.4-W> 1) 
1700 LET X C2+U,6) =Y (4.+U,3) 
1710 LET X (1+U..6) =Y t2+U^3> 
1720 LET X (l-fU^5) =Y (2+U^6) 
1730 LET Xt3+U^5)=YCl+U^6) 
174-0 JF FR = 1 THEN LET SU=2 
1750 IF FR=2 THEN LET SU=4. 
1760 LET X(3+U^SU) =Y (1+y^SU) 
1770 LET X (4-+y ^ SU) =Y <3+y ^ SU) 
173© LET X (2+y^SU) =rY (4-l-y ^SU) 
1790 LET X (l+y ^SU) =Y (2+y jiSU) 
1795 RETURN 


BRCK TOP 



"Simon“ ist genau das gleiche Spiel für 
den ZX 81, nur daß anstelle der Farben 
Buchstaben stehen. Immer dann, wenn Sie 
die Buchstabenkombination richtig in den 
Computer eingegeben haben, gibt der Compu¬ 
ter einen Buchstaben dazu. Gewonnen haben 
Sie, wenn Sie sich eine Kombination mit 32 
Buchstaben richtig gemerkt haben. 

5 LET R$ = ***' 

10 FOR 1=1 TO 3 

15 LET RS=R$*fCHR$ IXNT lRNDif26 
+ 39) ) 

20 NEXT I 
50 PRINT ‘ 

55 PRINT 
60 PRINT ^'MERKEN SIE SICH DIES 


if-roN 


65 PRINT 
70 PRINT R$ 

75 PRINT 

80 PRINT ^'DRUECKEN SIE DRNN N/ 
L** 

85 IF INKEY$ = "** THEN GOTO 85 
90 CLS 

95 PRINT ^‘GEBEN SIE DIE KOMßlN 
RTION EIN:- 
lOO INPUT S$ 

105 IF THEf'J GOTO ISO 

110 IF LEN R$=:32 I HEN Güro 135 
115 LET R$=R$+CHR$ (INT (RND^C^26 
+39) ) 

120 PRINT -BRRUO - RICHTIG“ 

125 CLS 
130 GOTO 50 
135 CLS 

14-0 PRINT “SUPER^SIE MRBEN 32 Z 
EICHEN“.“GESCHRFFT“ 

14-5 STOP 
15© CLS 

155 PRINT “FRLö'wn 

160 PRINT j ,"SCHRDE - 

165 PRINT “DIE KGMBINRTION URR: 

*» 

170 PRXNT 
175 PRINT 




MERKEN SIE SICH DIES: 
TCSZOPUO 

DRUECKEN SIE DRNN N/L 


Simon 1K 


Wahrscheinlich kennen Sie das "Senso"- 
Spiel. Dabei geht es darum, ininer länger 
werdende Farbkombinationen zu merken und 
richtig in den Computer einzugeben. 


GEBEN SIE DIE KQMBINRTIQN EIN: 

TCSZOPUO 

BRRUO - RICHTIG 

MERKEN SIE SICH DIES: 

TCSZQPUOF 

DRUECKEN SIE DRNN N^L. 
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Riesenbuchstaben 1K Pferderennen 1K 


Erstaunlicherweise paßt dieses Programm 
(solange der eingegebene Text nicht zu 
lange wird) in IK! 

Das Programm wandelt den eingegebenen Text 
in riesige Zeichen um, die auf dem Printer 
ausgeben werden. Nach Eingabe des Textes 
werden Sie informiert, wie lang der Aus¬ 
druck werden wird. Der Computer fragt Sie, 
ob Sie einverstanden sind. Sölten Ihre 
Papiervorräte nicht groß genug sein, können 
Sie Ihren Text kürzen und neu eingeben. 
Dann startet der Druckvorgang. 


5 
S0 
25 
30 
4-5 
50 
55 
60 
65 
70 
75 
60 
85 
90 
100 
105 
110 
115 
) -fl) 


CLS 

PRINT 

INPUT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 


••TEXT?** 

T$ . 

T* 

•’RUSDRUCKLRENGE : 
••CR. ••; LEN T*»9; 




••OK 

IF D* = ^‘J** THEN GOTO 85 
IF THEN GOTO 65 

RUN 
CLS 
FRST 

FOR 1=1 TO 
DIM fl*C8^8) 

FOR J=0 TO 
LET C=PEEK 
*8-8+U) 


LEN T* 


(7680-f-(CODE T*(I 


120 FOR K=S TO 1 
125 LET R*CÜ+l^K)=CHR* 
T (C/2))*128) 


STEP -1 

( CC-2*IN 


130 

LET C=INT 

(C72) 

135 

NEXT K 



140 

NEXT ü 



145 

FOR Ü=1 

TO 

8 

150 

FOR M=1 

TO 

4 

155 

FOR K=8 

TO 

1 STEP 

160 

FOR L=1 

TO 

4 

165 

LPRINT 

R$(K^ü); 

170 

NEXT L 



175 

NEXT K 



180 

NEXT M 



185 

NEXT ü 



190 

NEXT I 




Ein einfaches Pferderennspiel. Sie sehen 
die Pferde die Rennbahn entlanglaufen. Mit 
"New Line" starten Sie die Pferde. Der 
Sieger wird ausgedruckt. Leider reicht der 
Speicherplatz des IK-ZX 81 nicht aus, um 
auch noch Wetten zu behalten. Wetten 
müssen Sie bei diesem Programm also 
selbst. 


1 

5 

10 

15 

2© 

25 

30 

35 

4© 

45 


CLS 

GOTO 30 

FOR 1=1 TO 25 

PRINT ••^••; 

NEXT I 
RETURN 
GOSUB 10 
PRINT RT 1..25; 
PRINT RT 2.. 25; 
PRINT RT 3.. 25; 




50 DIM fiL3s 
55 GOSUB lO 
50 FOR I=:l TO 3 
65 PRINT RT I..O;I 
70 NEXT I 
75 INPUT R$ 

8© FOR I==i TO 3 
85 PRINT RT X.R 
87 RRND 

90 LET R<I)=R<I>+RND*2-M 
95 PRINT RT I.. R<I);I 

lOO IF R(I)>=23 THEN GOTO 115 

105 NEXT I 

11© GOTO SO 

115 PRINT RT T., 25; 

120 PRINT 

125 PRINT RT 6 .. O; •’NOCHEINMRL7 
130 INPUT R$ 

135 IF CODE R*=47 THEN RUN 


3^“ «« 
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SIdsprung 


Mcrihemcrtik- 
1K Übung 1K 


Dieses Programm ist eine einfache Rech¬ 
nersimulation eines Ski Sprunges. Per Zu¬ 
fall szahl wird die größtmögliche Sprung¬ 
weite ermittelt. Dann fragt der ZX 81 nach 
Sprunghöhe und Körpergewicht. Aus diesen 
Angaben wird die Sprunggeschwindigkeit er¬ 
rechnet, eine mit einem Zufallszahlengene¬ 
rator hergestellte Fehlerzahl eingestreut 
und das Endergebnis in Form einer Bewertung 
und einer Punktezahl ausgedruckt. 


10 PRINT “SPRUNG" 

15 LET RsINT (RND*S)+100 
SO PRINT “GRQE5STE UEITE " 

METER“ 

S5 PRINT “SPRUNGHOEHE ?" 

3© INPUT B 
35 PRINT "GEWICHT?" 

4.0 INPUT C 
4S Ci_S 

4-5 LET D = INT (C+(BxSi ,'-3©) +1© 

50 PRINT “GESCHWINDIGKEIT ";D; 
KH-'H“ 

SS PRINT 

50 LET E = INT ( <D*^ IO) + (RND+5 
+3) ) /-IO) 

65 IF E<R THEN GOTO SO 
70 PRINT "ZU WEIT“ 

75 GOTO 160 

8© IF E<50 OR D<SO THEN GOTO 9 


85 

90 

95 

105 

11© 

115 

130 

135 

14.0 

145 

11 ) 

150 

7) 

155 

160 

165 


GOTO 100 

PRINT “ZU LRNGSRM“ 

GOTO 160 

IF RND*5+1=1 THEN GOTO 115 
GOTO 130 

PRINT "SCHLECHTE URNDUNG" 
PRINT "MfiX SPRUNG ".;R 
PRINT “ERREICHT “.;E 

LET F=INT <RND+11) 

PRINT “FEHLER “INT tRND3t 

PRINT “PUNKTE “300-fi - (F )e- 

STOP 

PRINT 

PRINT "RBSTURZ" 


Wieviel ist 57 mal 48? 

Wenn Sie das nicht auf Anhieb beantwor¬ 
ten können, ist vielleicht dieses IK-Spiel 
das Richtige für Sie. Sie haben die Wahl 
zwischen leichteren und schwereren Multi¬ 
plikationen. Nach 20 Rechnungen gibt der 
Computer eine Gesamtwertung aus. 

5 LET R=o 

10 PRINT “NULTIPLIKfiTION“ 

15 PRINT 

20 PRINT "1) LEICHT” 

25 PRINT ”2) SCHWER” 

30 INPUT ft* 

35 IF fl$<>”l” ftND ft*<>"2" THEN 
GOTO 30 

45 LET E=10++{URL R$) 

50 FOR 1=1 TO 20 
55 CLS 

60 PRINT "MULTIPLIKRTION ";I 
65 PRINT 

70 LET B=INT (RND+E+1) 

75 LET C=INT (RND+E+l) 

80 PRINT B; " X ”;C;” = 

85 INPUT D 
90 PRINT B*C 

95 IF D=B+C THEN GOTO 110 
lOO PRINT D;" IST FftLSCH." 

105 GOTO 120 

HO PRINT “RICHTIG ***" 

115 LET ft=ft+l 
120 FOR Ü=1 TO 50 
125 NEXT ü 
13© NEXT I 
135 CLS 

140 PRINT "ERGEBNIS.“ 

145 PRINT ft;" RICHTIGE UON 20“ 

MULTIPLIKftTION 

1) LEICHT 

2) SCHWER 
MULTIPLIKftTION 1 
69 .X 7 = 483 
RICHTIG *++ 

MULTIPLIKftTION 2 

6 X 77 = 

335 IST FftLSCH. 

MULTIPLIKftTION 3 
38 .X 40 = 



Eine Publikation von CHIP 


31 





Spiele 


Crunch 



Ziel dieses Spieles ist es, mit dem 
Cursor (einem invertierten Sternchen) die 
andere Seite eines Zahlenblocks zu 
erreichen. Dabei soll die höchstmögliche 
Punktzahl durch das Überfahren der 
höchsten Zahlenwerte erreicht werden. 

Wenn die andere Seite erreicht ist, gibt 
der Computer eine Punktewertung aus. 


5 LET G=0 
10 LET R=4. 

15 LET S=0 

a<3 FOR X=1 TO 163 

25 PRINT s int £RN£>S-3+a9) ) 


30 NEXT I 

35 LET 1=1 

4.0 GOSUB 125 

45 POKE U+1G0,151 

5© INPUT C 

SB GOSUB 125 

50 LET M=U+tfi-l>#33+1 

S0 POKE M^0 

©5 IF C=& RND R<6 OR C=7 RND 
>1 THEN LET fl=fl-2*C+13 

S0 IF C=S THEN LET 1=1+1 
G5 LET G=G+1 


R 


100 

105 

11© 

115 

120 

125 

6397 

130 

135 

E" 


LET M =U +{R — 1y #33 +1 
LET S=S+PEEK M-2S 
POKE M.. 151 

IF 1=32 THEN GOTO 135 
GOTO 50 

LET U=PEEK 16396+256*PEEK 1 

RETURN 

PRINT INT (S.'G + IOO) PUNKT 


31232221 22321122222322223222 

3223222 11 11322231321112332233 

1132123 222 013232322322322122 

2 211221122232111223313231 

2 321332 111.3122212122233211111 


;R;" UERSUCHE” 


falschen Tips erraten haben, verlieren Sie 
das Spiel und der Computer verrät Ihnen die 
richtige Lösung. 

10 LET R=© 

15 LET R$ = '*" 

20 LET 5$=“" 

25 LET B=0 
30 PRINT ‘•WORT?“ 

35 INPUT 
4.0 CL3 

45 PRINT "NOCH 
50 PRINT 

55 PRINT '•GEBRRUCHT: “ 

60 PRINT 

65 PRINT “BUCHSTRBE?“ 

70 PRINT 

75 FOR 1=1 TO LEN C$ 

S0 PRINT 

35 LET B$=B»+" " 

90 NEXT 1 
95 INPUT D$ 

100 LET R$=R$+D$ 

105 PRINT RT 2,. 14,9$ 

110 FOR 1=1 TO LEN C$ 

115 IP D$=C$(I.> THE.N GOTO 160 
120 IF ß$=C.$ THEN GOTO 190 
125 NEXT I 

130 IF S=0 THEN LET R=R-1 
135 LET £3=0 

140 IF fi=0 THEN GOTO ISO 
145 PRINT RT 0,5;R 
150 GOTO 95 
160 PRINT RT 6,I-l;D$ 

165 LET B${I)=0$ 

170 LET S=B+1 
175 GOTO 120 

ISO PRINT RT 10,0;"ES WRR ";C$ 
185 STOP 
190 PRINT 


NOCH 5 UERSUCHE 
GEBRRUCHT: ERICMKPH 

SUCHSTRBET 



A—Z-Spiel 1K 


Ein Spieler gibt ein Wort ein. Der ZX 81 
druckt die Anzahl der Buchstaben als 
Striche aus. Der zweite Spieler muß nun das 
Wort herausfinden. Dazu gibt er einen 
Buchstaben ein. Der Computer prüft, ob der 
Buchstabe im Wort vorkommt. Wenn ja, dann 
druckt er ihn an die richtige Stelle im 
Wort. Die Anzahl der Züge sowie die verwen¬ 
deten Buchstaben druckt der ZX 81 laufend 
aus. Wenn Sie das Wort nicht nach 9 


Catch 1K 


"Catch" ist ein Zahlenratespiel. Der Compu¬ 
ter ermittelt per Zufallsgenerator eine 
Zahl, die Sie erraten müssen. 

Sie finden die Zahl heraus, indem Sie sie 
in einem Intervall zu "fangen" versuchen. 
Wenn Sie beispielsweise annehmen, die Zahl 
liegt zwischen 1 und 10000, und der Compu- 
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ter bestätigt Ihnen das, verkleinern Sie 
den Intervall immer mehr, solange, bis Sie 
die richtige Zahl gefunden haben. 


1 ci_s 

5 l_ET 0=0 

10 1_ET 0=INT <RND^fSO000+ l.> 

20 PRINT RT 18,0;"ICH DENKE HI 
R EINE ZRHL" 

30 PRINT "ZUISCHEN i UND ";0;" 


4.0 PRINT "DURCH EINGRBE EINES 
INTERURLLS" 

50 PRINT "MUESSEN SIE MEINE ZR 
HL ERRRTEN." 

50 LET Z = INT (RND^tO + l> 

7© SCROLL 
30 SCROLL 

90 PRINT "OBERE GRENZE 7 
100 INPUT R 
110 LET R=RBS INT R 
120 PRINT R 
130 SCROLL 

14.0 PRINT "UNTERE GRENZE 7 

150 INPUT B 

160 LET B=flßS INT B 

170 PRINT B 

130 SCROLL 

19© SCROLL 

200 IF R<B THEN PRINT "FRLSCHE 
EINGRBE" 

210 IF R<B THEN GOTO 7© 

220 LET R*="DIE ZRHL IST NICHT 
IM INTERURLL" 

230 IF R=B RND R=Z THEN GOTO 28 


24-0 IF Z <R RND Z>B THEN LET R* = 
"DIE ZRHL IST IM INTERURLL" 

250 PRINT R$ 

26© LET 0=04-1 
270 GOTO 70 
230 SCROLL 
290 SCROLL 
300 SCROLL 

^310 PRINT "SIE HRBEN ES GESCHRF 
320 SCROLL 

330 PRINT "DIE ZRHL URR ";Z;"." 
34.0 SCROLL 
350 SCROLL 

3S0 PRINT "SIE BRRUCHTEN ":0;" 
UERSUCHE." 

370 SCROLL 
330 SCROLL 

" WOLLEN SIE ES NOCHEI 

NMRL 

4.00 SCROLL 

410 PRINT "UERSUCHEN (UyN)7" 

420 INPUT R$ 

t?® R»=47 THEN RUN 

440 isCROLL 
4&0 SCROLL 

WIEDERSEHEN" 

470 SCROLL 
480 SCROLL 
490 SCROLL 


ICH DENKE MIR EINE ZRHL 
iUISCHEN 1 UND 15774. 

DURCH EINGRBE EINES INTERURLLS 
MUESSEN SIE MEINE ZRHL ERRATEN. 


UBERE GRENZE 7 
UNTERE GRENZE 7 


100O0 

1 


UIE ZRHL IST IM INTERURLL 


OBERE GRENZE 7 
UNTERE GRENZE 7 

DIE ZRHL IST IM 

OBERE GRENZE 7 
UNTERE GRENZE 7 

DIE ZRHL IST IM 

OBERE GRENZE 7 


5000 

1 

INTERURLL 

2500 

1 

INTERURLL 


Hundert 


16K 


Ein teuflisches Spiel! 

Zu einer zufällig gewählten Startzahl ad¬ 
dieren abwechselnd Sie und der Computer 
eine beliebige Zahl zwischen 1 und 10. 

Das heißt...ganz so beliebig auch wieder 
nicht, denn wer zuerst die Zahl 100 er¬ 
reicht, hat gewonnen. 


N 


er 

10 

20 

30 

CLS 

PRINT 

PRINT 

PRINT 

40 

PRINT 

50 

PRINT 

50 

PRINT 

70 

30 

S0 

100 

SIE 

PRINT 

PRINT 

PRINT 

PRINT 

DER** 


"BEI UEDEM ZUG DUERFE 


ZWISCHEN" 

120 PRINT "1 UND lO HINZUFUEGEN 


"WER ZUERST 100 ERREI 

"HAT GEWONNEN." 
"SOLLTE IHRE ZRHL MEH 

"BETRAGEN,SO HRBEN SI 


130 PRINT 
140 PRINT 
CHT HAT," 

150 PRINT 
ISO PRINT 
R RLS 100" 

170 PRINT 
E UERLOREN. 

130 PRINT RT 18,5;"DRUECKEN SIE 
EINE TASTE" 

190 IF INKEY$<.^"" THEN GOTO 190 
200 IF INKEY$="" THEN GOTO 200 
210 LET Z = INT tRND»30 + l.l 
220 LET D*="1,12,23,34,45,56,67 
,73,89,100," 

230 CLS 

240 PRINT "STRRTZRHL IST ”;Z 
250 PRINT ,,"WIEUIEL DfiZU7" 
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260 INPUT fl 
27© IF fl<l OR 
THEN GOTO 260 
2S0 LET Z=:2+fl 


fl >10 OR flOiNT fl 


290 PRINT 


"NEUER STAND IST 


'300 

31© 

320 

330 

34-0 

350 

360 

370 

330 

390 

4-00 

4.-10 


IF Z>=100 THEN GOTO 4-70 
LET P=0 
LET fl$="" 

LET P=P+1 

IF D$(P) =’•#'* THEN GOTO 370 
LET fle=fl$+D*(P) 

GOTO 330 _ 

IF UAL fl*<Z THEN GOTO 320 
LET C=UflL fl$-Z _ ^ 

IF UAL fl*=Z THEN LET C=1 
PR INT 

PRINT "ICH GEBE ";C; " HINZU 


4-20 LET Z=Z+C 

4.'30 FOR 1 = 1 TO 50 

4-35 NEXT I 

4-4.0 CLS _ ^ 

4-4.5 IF Z>=100 THEN GOTO 500 
4-50 PRINT "NEUER STAND : " ; 2 
4-60 GOTO 250 

4-70 CLS 

4.7S XF Z = 100 THEN PRINT "SIE Hfl 

THEN PRINT "SIE HR 
BEN LEIDER UERLOREN” 

4-90 GOTO 520 

500 CLS 

510 PRINT "ICH HABE GEUONNEN" 

iio PRINT "UOLLEN SIE NOCHEINHA 

L'? " 

•540 INPUT fl* 

550 IF CODE A*=47 THEN RUN 

ItO PRINT "ICH HOFFEtSIE HABEN 

^iiS PRINT TAB 4;"UNTERHALTEN" 
590 PRINT 

600 PRINT "AUF WIEDERSEHEN" 


100 


BEI JEDEM ZUG DUERFEN SIE DER 
STARTZAHL EINE ZAHL ZWISCHEN 
i UND 10 HINZUFUEGEN. 

WER ZUERST 100 ERREICHT HAT , 
HAT GEWONNEN. 

SOLLTE IHRE ZAHL MEHR ALS lg® , 
betragen,SO HABEN SIE UERLOREN 

DRUECKEN SIE EINE TASTE 


High-Low-Spiel 


1K 


Ein klassisches Computerspiel. Der ZX 81 
ermittelt ei ne Zufal1szahl, die Sie er¬ 
raten müssen. Sie geben Ihren Tip in den 
Computer ein, der Ihnen mitteilt, ob die 
Zahl zu hoch oder zu niedrig war. Darauf 
müssen Sie Ihren Tip abstimmen. Der ZX 81 
druckt die Anzahl der Versuche aus, und 
gibt eine entsprechende Meldung aus, wenn 
Sie die Zahl getroffen haben. 

Um aufzugeben, drücken Sie "0". 

Den Bereich, in dem die Zufallszahl liegt, 
können Sie durch Ändern der Zahl "200" in 
Zeile 15 beeinflussen. 


LET z=o 

PRINT "HI-LO SPIEL" 

LET R=INT {RND»200+1) 

PRINT 

PRINT "ICH HABE EINE ZAHL" 
PRXNT 

PRINT “GEBEN SIE 0 FUER END 

PRINT 
LET Z=Z+1 

PRINT "UERSUCH "; Z 
INPUT U 

IF U=0 THEN 6TOP 

IF U=A THEN GOTO 120 

PRINT __ .. 

PRINT "IHRE ZAHL WAR ZU "j 
IF U>fl THEN PRINT "HOCH" 

IF U<A THEN PRINT "NIEDRIG" 

PRINT 

PRINT "NEULINE" 

INPUT fl* 

CLS 

IF 2=15 THEN GOTO 140 
GOTO 20 

PRINT -SIE SCHRFFTEN ES IN 


S 
10 
15 
20 
SS 
30 
35 
E EX? 

4-0 
4-5 
50 
55 
50 
55 
70 
75 
50 
35 
SO 
95 
100 
105 
110 
115 
1S0 
ISS 
**; Z; 

130 
14-0 
14-5 

ICH HRBE EINE ZRHL 
GEBEN SIE 0 FUER ENDE 
UERSUCH 4. 

IHRE ZRHL URR Zü HOCH 
NEULI?'IE 


STOP 

CLS 

PRINT "DIE ZAHL WAR 


EIN 


■; fl 


Kristalle 

sammeln 16K 

Fliegen Sie mit uns zum Planeten Ga¬ 
nymed 11, um Xylenium-Kristalle abzubauen. 
Monster und Beamstrahlen sind nur zwei der 
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Hürden, die Ihrem intergalaktischen 
Reichtum im Weg stehen. 

Sie sind an Bord des Fluges 12/03 auf dem 
Weg zum Planeten Ganymed 11. Ihre Mission 
ist es, dort so viele Xylenium-Kristalle 
wie möglich zu sammeln und auf die Erde zu 
bringen. Für jeden zurückgebrachten Kris¬ 
tall erhalten Sie 1.000.000 Pfund ausbe¬ 
zahlt. 

Der Planet besteht aus einem unterirdischen 
Irrgarten, durch den Sie nach Belieben 
wandern können. 

Während Ihrer Wanderung erhalten Sie Infor¬ 
mationen über den Inhalt der verschiedenen 
Räume und wenn Sie Glück haben, bekommen 
Sie von Zeit zu Zeit eine Karte der Plane¬ 
tenoberfläche gezeigt, auf der Ihre Posi¬ 
tion eingetragen ist. 

Die meisten Räume sind leer, doch einige 
enthalten Dinge, die Sie bremsen (oder 
töten). Unter den Schwierigkeiten Ihrer 
Reise sind versperrte Räume, Monster, Beam- 
strahlen (die Sie zufällig im Irrgarten 
umherbewegen) und Fallgruben. 

Wenn Sie das Programnm zwischendurch SAVEn, 
werden alle Variablen mitaufgezeichnet und 
Sie können, wenn Sie das Programm später 
wieder laden, an der gleichen Stelle wei¬ 
termachen. Das Programm sollte mit GOTO 
9998 gesavet werden und startet dann von 
selbst. 


1 

s 

3 

4 

5 

6 

S 

Q 

1© 

15 

2© 

30 

35 

40 

45 

5© 

5© 

65 

7© 

75 

76 

77 
76 
7© 
6 © 
61 
SO 
95 

10 © 

13© 

15© 


* *‘*‘♦^ *•*«•*•*• it-^ -JE“ ^ iE- 

Sin nick*» 

Sa fiDRPTED ** 
REM &RMEYMEE,'E BV * * 

REH *» TIM HRRTNELL. ** 
R|M ********^^.**^,^*^^**,^^ 

REM 

Cl_ERR 

LET LL=S©0 
LET CRYSTRLS=0 
UET INIT=:190 
LET DEl_RrV= 30©0 
LET RERD = 4-000 
LET MRP=1000 
DIM R(400) 

RRND 

RRND RND 
SLOU 

REM ***INSTRUCTIO!MS**^ 

PRINT "INSTRUCTIONS (VVN)" 
ZF INKEY#=““ THEN GOTO 76 
I^^INKEY*=”Y" TMEN GOTO 10© 

G05UB INIT 
ERST 

GOSUB INIT 
6LOU 

GOTO 4-60 
GOSUB 9000 
GOTO 4.60 
FOR 1=1 TO 4-0 


THEN LE* 
THEN LE*^ 


160 NEXT I 
Z*?© CUS 

ISO REM INITIRLIZE 
19© FOR 1 = 1 TO 4-00 
196 IF I>10O THEN FR.'.T 

i^OO IF I < =20 OR I 5 =3S© 

R<. I J=CODE “B" 

22© IF 20*^INT ..I>'2ei=I 

R(I>-UODE 

24.© IF 1=301 C ,* 1=321 OP 1=34-1 

OR 1=361 OR 1=381 OR 1=21 OR 1= 

1 OR 1=61 OR I.-Sl OR 1 = 101 OP I 
121 OR 1=141 OP 1=161 OR I=iei 
R 1=201 OR 1=221 OR 1=241 OR 1= 

OR 1=281 THEN LET R(i:i=CODE ” 

eso IF .Rl.I) =© THEN LET HiIi=CDL 
E . " 

300 NEXT T 

301 LET INIT=305 

302 -SLOU 

303 RETURN 
305 RRND 

'310 FOk 1=1 TO 25 
320 LET C=INT (RND 
33© IF R(C)=CODE " 

(C)=CÜDE "C“ 

35-5 LET C = INT (RND 
360 IF R<C) «: >CODE 
fl (C > =CODE "S" 

365 LET C=INT (RND 
37© IF R/.Cj<>CODE 
fl (C) =CODE “P" 

375 LET C=1NT (RND 
380 IF fl(C)<>CüDE 
fl(C)=CODE "Si" 

4©0 NEXT .1 
410 FOR 1=1 TO S© 

420 LET C=INT (RND 
430 IF fl(C) <>CODE 

fl<c»=coDe 
440 NEXT I 
450 RETURN 
460 CLS 

470 PRINT “YOU HRt • 

AND YOU flRENOU IN 


*4©k?:? 4-1 
. THEh4 LET H 

i^4©0) 4-1 

•»" THEN LET 

*4©0)+1 

THEN LET 

ie400:i -f-1 

■’*" THEN LET 


*400)*1 
’ B" THEN LET 


E NOU RRRIUED 
fl RANDOM ROOM 

' 475 *PRINT 

476 LET OüT=INT {RND*400)+1 
^477 IF fl (OUT) < >CODE THEN GO 

T O 476 

478 LET OUU=INT (RND*400 )+1 

479 IP fl(OUU)<>CODE "" THEN GO 
TO 478 

48© PRINT "WHICH IS...“; 

535 LET E=INT (RND* 4 e 0 )Vl 
536_IF fl(E)=CODE "B” OR fl(E)=CO 
DE ".H” THEN GOTO 53-5 
537 LET ORG=fl(E) 


53© 

539 

540 
Ö50 
THE 

ST*© 

580 

999 

1000 

1005 

1010 


1020 

1030 

RINT 

1040 

1045 

1050 


LET fl(E)=OODE "*•• 

PRINT E 
PRI?4T 

|;HERE IS ’fl Mflo OF ALL 


GOTO REA0 
STOP 
OL5 
Ffl.5T 

FOR 1=1 TO 400 
PRINT CHR« fl(I); 

IF 20* (INT (I/'2Ö))=I THEN P 

NEXT 1 
SLOU 

PRINT RT ©.. 23; "KE-y ..." 



PRINT 

IBöömOW 

göEvb 
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1080 

PRINT 

RT 

2.. 22; '• 

10-?O 

PRXNT 

RT 

4,22; •• 

108© 

PRXNT 

RT 

8,22; 

1090 

PRXNT 

RT 

7,22; *• 

IlOO 

PRXNT 

RT 

9.22; 

lllO 

PRXl*^ 

«T 

10,22; 

iiao 

PRINT 

RT 

12,22; 

1130 

PRrXNT 

RT 

14,22; 

114.0 

PRXNT 

RT 

18,22; 

1150 

PRXNT 

RT 

18.25, 

118© 

PRXNT 

RT 

20,25; 

1170 

PRINT 

RT 

19.24; 

118© 

UE" 

PRINT 

RT 

21.7; 

120© 

POR X 

=1 TO 100 

1201 

NEXT 

X 


1202 

XF UL- 

=-50 THEN 

1203 

CUS 



121© 

RETURN 


3000 

FOR X 

=1 TO 90 

3001 

NEXT 

X 


3002 

RETURN 


3999 

l-ET 8 

=0 


4.000 

CLS 



4.005 

FRST 



4.010 

FOR X 

= 1 TO -32 

4020 

PRXNT 

-ü’ 

'*; 

4.030 

NEXT 

I 

IN RC 

4.04.0 

PRXNT 

"m 

".:E.:TRB (31).; 

"«S“ 


h -YOU" 
-EMPTY” 

3 -MRTTER" 
TRRNS" 

^ -EOCKED" 
ROOM" 

P -PIT" 


R(UEST)<>"0" THEN 



RBQ 


STOP 


NUMBER 


TO 32 


TO 32 


4-050 EOR 1 = 1 
4-050 PRINT 
4-070 NEXT I 
4-0S0 PRINT 
:";TRB (31).: 

4-000 EOR 1 = 1 

PRINT "iSS".; 
NEXT I 

FOR 1=1 TO 10 
PRINT "lt".:TRB 
NEXT I 

FOR 1=1 TO 32 
PRINT "üf“.; 
NEXT I 
5l_OU 

PRINT RT 6.. 5.; 
IF ORG=CODE " 
'•EMPH'V ROOM'' 

4>190 XF ORG=CODE 


COMPUTER REPORTS 


4-100 

4.110 

4.120 

4.130 

4.13S 

4.14© 

4150 

4150 

4155 

41TO 

4180 


(31); "M" 


4-500 

4-195 

4-700 

4-200 

4-900 

4205 

5000 

4210 

4215 

4215 

4217 

4215 

4220 


IF ORG=CODE 
IF ORG=CODE 
IF ORG=CODE 


THEN PRINT 
‘C" THEN GQSUB 
•ffl" THEN GOSUB 
•P“ THEN GOSUB 
‘3" THEN GOSUB 


REM 
L-ET 
l_ET 
l_ET 
L-ET 
PRINT 
« R (NORTH) 
4230 PRINT 
$ R(SOUTH) 
4240 PRINT 
R* R(ERST) 
4250 PRINT 
R$ R(WEST) 
4255 PRINT 
.(O)UIT..7 


“UORK OUT NEXT ROOMS 
NORTH=E-20 
ER5T=E+1 
WEST=E-1 
SOUTH =E +20 


RT S,3,"NORTH 


RT 


OHR 


RT 

RT 

RT 


4255 l_ET 
4257 l-ET 

4250 

4251 
0 

4252 UET 
4255 IF 


IF 

IF 


9,3.; “SOUTH : " 

; CHR 

10,3;"EfiST 

CH 

11,3.; "UEST 

; CH 

13,3;"N, S, E, 

u. . 

OPG 

4960 

i-"" THEN GOTO 


01=E 


INKE'/'e="Q" THf 


RND CHR* ROOLfTH) 
R ( SOUTH )<>"|i" THE 


450© 

4505 

4510 

4520 


>"B" RND CHR$ 

LET E=E-1 
4270 IF M*="S" 

<>"B" RND CHRe 
N l_ET E=E+20 

4275 IF M$="E" RND CHR* R(ER5T)< 
>"■" RND OHR* R(ERST)<>"j®" THEN 

42S©^IF M$ = "N" RND CHRJl R (NORTH) 
<>"*" RND CHR$ R (NORTH) THE 

N i-ET E=E-20 _ 

4285 (_ET ORG=R(E) 

4266 LET R(E)=CODE "+" _ 

4287 IF RND >.89 THEN GOsUB MRP 
428© IF E=OUT OR E=OUU THEN GOTO 
950© 

429© GOTO RERD 

LET UO=INT (RND+10)+1 
PPINT (-IO." CRYSTRLS..." 

LET CRYSTRLS=CRYSTRLS+yO 
PRINT RT 15 ., 3 .; "BR ING ING YOU 
R TOTRL TO “.. CRYSTRLS .. 

453© PRINT RT 17 .. 3; U0-C-RY STRLS^ 
MORE TO GET." 

4531 LET ORG=CODE 

4532 LET R(E)=CODE 
4535 RETURN 

4700 PRINT "R MRTTER TRRNSPORTER 

4705 LET 01=E 

471© LET R(E)=ORG 

472© LET E=INT (RND+400) _ 

4725 IF R(E)=CODE "■" ÖR H(E)=CO 
DE “Jft“ THEN GOTO 472© 

4730 PRINT RT 14,3;"VCURRE 7RRNS 
PORTED TO "..E 
4735 LET ORG=R(E) 

474© LET R(E)=CODE ” 

4745 RETURN 
490© CLS 

4910 PRINT “YOU HRUE FRLLEN INTO 
R PIT...." 

4911 PRUSE 50 

4912 LET G=R ND+2 

4913 LET D$ = ’-- 

492© FOR 1=1 TO 21 
4925 LET Y=INT (RND+7)+1 

493© SCROLL -- 

^931 PRXNT > < 

4933 IF I>4 THEN PRINT RT 17,14+ 

44-34^F I>4 THEN PRINT RT 18,14 + 

■ "WSBBBSk" 

493 ^IF I>4 THEN PRINT RT 19,14 + 

493 ^P^F I>4 THEN PRINT RT 20,14 + 
G • 

4937 LET G = 1+(RND +1) -(RND *1) 

4936 NEXT I 
4939 GOTO 5000 
500© CL-S 

ilfl CRNO.ie,, +1 

503© PRIHT^“VOU*^HR»-»E ENTERED R R 
OOM UITH R MONSTER IN&IDE IT... 


GOTO 600 


M$: = INKE Y $ 
M$ = “(-)“ RND 


CHR* R(UEST) < 


5040 PRINT 

5050 IF K<7 THEN PRINT 

EEN YOU." 

5055 PRINT 

505© IF K=1 THEN PRINT 

RT 5 Y OU UP. . . . ” 

5070 IF K=1 THEN STOP 

508© IF K<7 THEN PhUöE 200 

5100 IF K<4 THEN PRINT HE IS R» 


"HE HRS 
"RND HE 
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LEEP SO HE HfiS NOT NOTICED 

YOU. ” 

5110 IF K<4 THEN PRU5E 200 
512© IF K<4. THEN GOTO REftD 
513© LET K=RlsH> 

514.0 IF K=5 THEN LET Re = *'GIUES Y 
OU" 

5^50 THeN ittCT 

FRiQM YDU 

LETT' 'FFSfeiHijT 

S170 PRirni ; 

-HE 

5190 IF H<7 THEN IF RetDe^G'*“ TH 
EN LET CRYSTRLSäGWYSTRLS+FF 
5200 IF KiC? THEN IF st^^T*'' TH 

EN LET CRY5TFÄ.5aClTYSTnL5-FF 
5210 PRINT 

5220 IF K<7 THEN PRINT “YOUR TOT 

RL IS NOU "; CRYSTRt_S 

5231 IF K<7 THEN PRUSE 200 

524.0 IF K<7 THEN GOTO RERD 

5250 PRINT "YOU HfiUE SCRRED HIM 

OFF...,“ 

saeo PRUSE aoo 

527© GOTO RERD 

6000 CLS 

5005 PRINT "YOU RRE NOU OUT OF G 
RNEYHEDE...." 

6010 PRINT 

6020 PRINT "UITH ";CRYSTRLS;" CR 

• w m tt m ■ 

6025 PRINT 

6030 IF-CRYSmLS <30 THEN PRI NT ” 

UHICH RRE NOT ENOUGH_..»“«-irri 

604.0 PRINT 

6050 IF CRYSTRLS<30 THEN PRINT " 

YOU WILL MRUE TO REHRIN ON 

GRNEYHEDE TO DIE_rVi P 

J'" CRYSTflLS<30 THEN STOP*' 

"UHICH IS ENOUGH TO G 
BPCK TO ERRTH...." 

606© PRUSE 200 
6090 CLS 

“YOU RRE NOU SRFELY B 
RCK ON ERRTHUITH RLL YOUR CRYSTR 
LS INTRCT." 

6110 PRINT 

6120 PRINT "YOU HRUE BEEN PRID 

£";CRYSTRLS»lES 

6130 PRUSE 300 

6135 LCT LL=-50 

614.0 GOTO HRP 

8000 CLS 

8005 PRINT "DO YOU UISH TO SftUF 
JME DETRILS OF THESE ROOMS FOR^L 
r5e?Y-N» 7" ^^O^'^^rURTION OF THE G 

60 lÖ IF INKEYf«"" THEN G.OTO 6010 
8020 IF INKEY'ji = "N" THEN GOTO 600 

8030 PRINT 

6g60 INKEY**="" THEN GOTO 8050 

8060 SRUE "GRNEYHEDE i®" 

8066 PRINT "PRESS ••••£"" TO STOP 
OR "-C"" TO CONTINUE." 

»SeZ « INKEY$="" THEN GOTO 8067 
6068 IF INKEY$="E" THEN NEU 
8080 GOTO RERD 

9000 CLS 

901© PRINT RT 0.. 7.: "GRNEV'HEDE I 
9020 PRINT RT 2.0. 

PP6 NOU RBOR 

SPRCE FLIGHT 12.^03 TO THE 


PLRNET GRNEYHEDE II. 

YOUR MISSION 13 

TO COLLECT RS MRNY' XYLENIUM CRY 
STRLS RS Y'OUCRN FIND, RND BRING 
THEM BRCK TOERRTH. FOR EfiCH CRYS 
XS*- YOU DO BRING BRCK YOU UILL 
8E PRID THE SUH OF £1,000,000.^' 

■■ PLANET CONSI 

UNDERGROUND MRXE-.OF - 
^00 ROOMS UHICH YOU CRN MOUE R 
UILL. Y'OU UILL HRUE 

URRIOUS REPORTS ON YOUR «JOUR 

NEY', SUTCH RS THE CONTENTS OF R 

OJRCENT ROOMS, RND FROH TIME 

TO TIME R MRP UILL BE DISPLAYS 
D . " 

9060 PRINT 

9070 PRINT " PLERSE URIT." 

90B0 GOSUB INIT 
9090 CLS 

9100 PRINT " MOST OF THE ROOH 

S RRE EMPTY,BUT SOHE CONTflIN MRR 
lOUS THINGS THRT UILL EirMER 51..0 
U DOUN YOUR PROGRESS, OR SPEED I 
y UP. THESE THXNOS RRE 

9110 PRINT 
9115 PRINT 
9120 PRINT 
OM . “ 

913© PRINT 
914.0 PRINT 
9150 PRINT 
9160 PRINT 
RNSPORTER." 

9170 PRINT 
9180 PRINT 
S PIT . “ 

9190 PRINT 
9200 PRINT 
NS CRYSTRLS 
9210 PRINT 
9220 PRINT 
9230 PRINT 
9240 GOSUB INIT 
9250 CLS 

9260 PRINT “1. THE LOCKED ROOM. 
927© PRINT 

2280 PRINT "YOU CRNNOT ENTER OR 
£§^6_X^gOUGHR LOCKED ROOM, THEY 
RICRDeI?" SERUE RS BRR 

9290 PRINT 

9300 PRINT "PRESS NEULINE" 

93 ll 1^5 = THEN GOTO 9305 

PORTER^"*''^ “2- THE MATTER TRANS 
933© PRINT 

-'TyiE^MnrrTER- TRANSPORT 
ISDISTURBIED . UIL.L TRRKI 
OM?^ TORNOTHER RÖOM RT RAND 

9350 PRINT 

2^60 PRINT "PRESS NEULINE" 
lie© ^[«INKEY*»"" THEN GOTO 9370 

l?ll «ONSTER... 

“MONSTERS CRN EITHER 

outTH?X T= ^t»n ERT Y 

uy RARE) . THEY CRN ALSO 

eäia^PRlNT CRYSTRI.5.“ 

9430 PRINT "PRESS NEULINE" 

945© " THEN GOTO 9440 


1. 

Ü* • • R 

LOCKED RO 

2. 

9 4 ■ • R 

MONSTER." 

3. 

8B• • • R 

MRTTER TR 

4 . 

P , . . R 

BOTTOMLES 

5. 

C...ROOH CONTRI 


PLERSE URIT... 
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Vier in 
einer Reihe 


16 K 


^4-&Q PRINT "4-. THE BOTTOMLESS 
PITS. “ 

94-70 PRINT 

94.e© PRINT “ft BOTTOMLESS PIT IS 
INE-SCftPftBLE ftND SMOULD BE ftUOIDE 
D ftT ftJ_L COSTS . UNLE5S YOU HR 

UE OUER 30 CRYSTRL.5. ” 

94-93 PRINT 

9500 PRINT “PRESS NEULINE" 

9505 IF INKEY*=““ THEN GOTO 9505 
951© CLS 

9512 PRINT “ OTHER SURPRISES 

ftRE TUO ROOMS UH ICH .. IF ENTE 

REO , WIL-I_ TRftNSPORT YOU TO THE 

SURFftCE.“ 

9513 PRINT 

9514 PftUSE 400 

9515 PRINT 

9515 PRINT “GOOD LUCK....“ 

9517 PftUSE 70 
95IS RETURN 
9600 CLS 

961© PRINT “YOU HftUE RCCIDE^rrLY 
ENTERED ft ROOM UHICH CONTOINS 
O CHUTE THRT LERDS OUT OF GR 

NEYMEDE....“ 

9620 PftUSE 200 
96-30 GOTO 6000 
9997 STOP „ 

9996 SftUE "GftNYHEDE IB“ 

9999 RUN 




HRP FROH RBOUE 


KEY. . . 


1t 

-YOU 


-EMPTY 

ffi 

-MRTTER 

TRftNS 

m 

-LOCKED 

ROOM 

p 

-PIT 

m 

-MONSTER 

c 



N 

UflE 

5 


Das Ziel des Spieles ist rasch erklärt: Sie 
müssen vier Ihrer Steine in einer Reihe 
haben, entweder vertikal, diagonal oder 
horizontal. 

Das Spielbrett wird ausgedruckt, wobei Sie 
als Buchstabe "H", der Computer als "C" 
dargestellt werden. 

Das Programm läuft ziemlich langsam und 
wurde für den FAST-Mode entwickelt. Wenn 
Sie es trotzdem in SLOW laufen lassen wol¬ 
len (weil der Ausdruck des Spielfeldes in 
SLOW besser aussieht), löschen Sie die 
Zeilen 8 und 1006. 

Es wurde kein Mechanismus eingebaut, der 
bekanntgibt, das das Spiel beendet ist oder 
welcher der beiden Spieler gewonnen hat. 
Wenn Sie verstanden haben, wie das Programm 
arbeitet, könnten Sie aber einen hinzufü¬ 
gen. 


ENTER YOUR MOUE 



1 REM FOUR IN ft RCU 

7 REM 

8 FftST 

10 GOTO 5000 

20 LET E=C 

30 LET E=E+.N 

35 IF E<1 THEN RETURN 

40 IF R(E) <>T THEN RETURN 


5© LET K=K+1 
60 GOTO 30 

100 PRINT PT 6^10; 

11© FOR R=12 TO 1 STEP -1 
12© PRINT PT 19-P^10, ”, 

130 FÖR B=2 TO 9 
140 PRINT CHRi CRCR*10+B)); 
150 NEXT B _ 

160 PRINT ^ ^ 

165 PRINT ftT 19-0,10; B 
170 NEXT ft _ 

180 PRINT TOB 10;" B12345SZ9I 
185 PRINT TOB 1©.; 

190W5eTURN 
195 REM 

300 FOR X=1 TO 4 
210 LET K=0 
220 LET N=X(X) 

230 GOSUB 20 
240' LET N = -N 
2-50 GOSUB 20 _ _ . _ 

260 IF K>L THEN LET L=L 
270 IF K>L THEN LET L=K 
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280 NEXT X 
290 RETURN 
300 REli 
1000 GOSUB 1O0 

1005 PRINT RT 3,6;-ENTER VOÜR MO 
UE- 

1006 PRUSE -tE-t 

1010 LET D-CODE INKEV«-2ö 
1015 IF D = --28 TMEN GOTO 1010 
1017 PRINT RT 3,6;- 


1020 
D + 1) < 
1030 
104.0 
1050 
1060 
1070 
1090 
1110 
2000 
2010 
2020 
2030 
204.0 
2050 
2060 
2070 
2080 
2090 
2395 
2250 
2100 


IF D<1 OR £>>8 OR 

>CODE THEN GOTO Ißlö 

let y=code -h- 

LET C=:H (C>) *10+D + 1 

L-ET H (0> =H <0» ^1 

1.ET R<:C)=V 

LET L=0 

GOSUB 200 

REM ***»*«^^^**»* 

T=0 
T=T-I'l 
P=:0 

Y=CODE -C- 
D=© 

D=D + 1 
L=0 

T=2 THEM LET L=i 
T=2 THEN LET Y=:CODE “H** 


LET 
LET 
LET 
LET 
LET 
LET 
LET 
IF 
IF 

let C=H(D) ^10>fD + l 
IF R (C) < :>CODE - . * 


THEN GOTO 


GOSUB 100 


2110 LET H=:G 
2120 IF L>2 THEN 
2130 IF L<2 THEN 
214.0 LET M=L 
2150 LET L=© 

2160 LET Y=CODE 
2170 LET C=C4-10 

IF R (C) < >CODE 


GOTO 3010 
GOTO 2250 


u 


THEN GOTO 


^ X I 

2200 

2180 GOSUB 20© 

IF L>2 THEN GöTu 

IF M<P THE^4 GOTO_ 

IF T=2 RND M<2 J HtiN UuTu 


219© 

2200 

2210 

50 

2220 

2230 

2250 

2255 

2260 

2270 

2280 

2500 

2510 

300© 

3010 

3020 

3030 

304.0 

3050 

3060 

3070 

3000 

3090 

5000 

5010 

5020 

5030 

504.0 

5050 

5060 

5070 


2250 


LET 

LET 

LET 

LET 


T,H-E-N GOTO 205© 
THEN ^ GOTO ^ 2© 10 
HEN i u Ci500 


- i 


59( 
510© 
511© 


LET P^H 
LET Ü=H 
IF Z> <>3 
IF T <> 2 
IF P<2 
LET C=ü 
GOTO 3000 

let D=XNT CRND^a)-H 
C=H (Dy ^10+D + i 
C> =C - 10 ^ INT < C y Ik} ) 
R <C> =CODE ' C'* 

H (DJ =H (D) +1 
GOSUB 200 
LET Y-CODE '‘C-- 
LET L=0 
GOSUB 100 

IF L>2 THEN GOTO 500 

GOTO 1005 

REM 

DIM R(150) 

DIM H(ö) 

FOR H=1 TG G 
LET H(H)=1 
NEXT H 

FQR R=1 TO IH 

FOR B=2 TO 9 

let R (R^iO-t-B) =C0DE 

NEXT B 

INEXT R 

DIM X(4.) 

LET Xil'f =1 


5120 

5130 

5140 

5150 

5160 

5200 

5210 


LET X(2)=9 
LET X(3)~H0 
LET X(4>~11 
LET G=0 
LET T=0 
GOTO 10O0 
REM 


Rennfahrer 1K 


Sie müssen Ihr Rennauto auf der Strek- 
ke halten. Nachdem Sie einen Streckenab¬ 
schnitt erfolgreich durchfahren sind, kommt 
ein neuer auf Sie zu. Wenn Sie die schwarze 
Leitplanke berühren, ist das Spiel für Sie 
zu Ende. Sie bekommen dann Ihren Punkte¬ 
stand mitgeteilt und werden gefragt, ob Sie 
weiterspielen möchten. Wenn Sie nicht "Y" 
für “Yes" drücken, stoppt das Programm. 

Das etwas eigenartige Progranmlisting hat 
seine Ursache darin, daß es der Programmau¬ 
tor geschafft hat, das komplette Programm 
samt Bildschirmdisplay und Punktewertung in 
IK zu bekommen. 


XQ L.ET H=CODE "" 

aa L.ET S=CODE •••• 

30 CL.S 

4.® LET X=C.ODE "i'" 

50 LET R=CODE 

50 FOR N=CODE "" TO CODE "=•' 

70 PRINT TRS fi; 

S© LET R=P,-f tP <CODE “W^ PWD R) 
SGN <Rr4D-. 5} • TmOT RJ - (R=CQDE "f*" 


a© NEXT N 
100 LET R=X 

12.0 FOR N=PI^'PI TO CODE “ =" 
la© PRIMT RT W,X; 

133 IF PEEK CPEEK 16393+aS6 iePEE 
K 15399) =CODE "a“ THEiN GOTO 310 
14.0 PRINT RT N-PI..'PI ,R; ; RT N 

.. X; "ffi“* 

150 LET R=X 

160 LET X=X+ l INKEY$ ="0”) - (INKEY 
$ = '• 1" ) 

170 NEXT N 
1S3 CLS 
190 LET S=S+H 
300 GOTO CODE "3" 


310 CLS 

a30 LET S=S+N 

330 PRINT ,^, 




240 IF H<3 THEN LET H 
250 PRINT "HIGH SCORE 


t i f 

; H, 


“SCOR 


'•PL 


Eine Publikation von CHIP 


39 





Spiele 


RY RGHiN?" 

£6© IF XMK.EV$ = ”" THEN GOTO 260 
270 IF XNKEy$="Y" THEH GOTO COD 
E ••=" 



SCORE=25 HIGH SCORE=25 

PLRY RGRIM'? 


treffen, bevor Ihre Zeit abgelaufen ist. 
Wenn Ihre Energie zu Ende ist, endet das 
Spiel ebenfalls. 

Sie wissen, daß Sie nahe genug für einen 
Schuß an das Raumschiff herangekommen sind, 
wenn Sie Ihr Computer informiert, daß das 
Raumschiff auf Sie schießt. Jeder Treffer 
vermindert drastisch Ihre Energie. 

Das Spiel ist einfach zu spielen. Sie be¬ 
rühren einfach die Taste, die der Richtung 
entspricht, in die Sie fliegen wollen. N, 
S, E, oder W, um nach Norden, Süden, Osten 
(englisch "East", deshalb E) oder Westen zu 
fliegen, A bedeutet Beschleunigung, R 
Bremsraketen und L feuert Ihren Laser ab. 
Wenn Sie beispielsweise wissen, daß sich 
das Raumschiff im Norden befindet, halten 
Sie einfach die N-Taste gedrückt, bis Sie 
auf gleicher Höhe mit dem Raumschiff sind. 
Wie weit Sie noch vom Raumschiff entfernt 
sind, testen Sie durch einen Schuß ab. 

Sie werden bemerken, daß Ihnen das Programm 
bei bringt, wie man das Spiel spielt. Merken 
Sie sich nur, daß Sie so nahe wie möglich 
an das Raumschiff herankommen müssen, um zu 
schießen und daß Sie das Raumschiff oft 
abschießen sollten, bevor Ihre Zeit um ist. 


Raumfahrt 16K 


Sie sind für einen 10x10x10 großen Würfel 
All verantwortlich. 

Die Raumfahrtbehörde, die nie mit Geld 
spart, wenn es um die Sicherheit der Erde 
geht, hat Ihr Raumschiff mit einem ZX 81- 
Bordcomputer ausgestattet. 

Ihre Position innerhalb des Würfels wird 
durch drei Koordinaten angegeben. Die erste 
Koordinate ist Ihre Position in Nord/Süd- 
Richtung (je niedriger, desto südlicher), 
die zweite die Position in Ost/West— 
Richtung, die dritte Ihre Position im Wür¬ 
fel, also ob Sie sich weiter vorne oder 
hinten befinden. 

Das feindliche Raumschiff bewegt sich sehr 
langsam innerhalb des Würfels. Obwohl Sie 
jederzeit wissen, in welcher Richtung sich 
das Raumschiff befindet, wissen Sie nicht, 
wie weit es von Ihnen entfernt ist. 

Sie müssen das Raumschiff sooft wie möglich 


10 REM BETUEEN THE STRRS 

20 REM BY ROGER MRCIKTTYRE 

30 GOSU6 1070 

4.0 GOSUB S00 

50 IF L.<0 THEN GOTO 500 

80 PRINT RT 17,0; “ENTER YOUR C 


OHMRNC” 

90 FORINT RT 18,2; "N , S , E , U , tL) R 
SER, •• , " CRJ DURNCE, tRJ ETRERT” 

100 LET l_=i.-0.25 

120 XF INKEY »=•"** THEN GOTO 120 
130 IF INKEY THEN GOSUB 32 

®14.0 IF lNKEY*s“N“ THEN L.ET X=X- 

^150 IF INKEV* = "S“ THEN l-ET X=X + 

^160 XF XNKEY$ = ”E"’ THEN LET Y=Y + 

^170 IF INKEYTHEN LET Y=Y- 

^180 IF INKEY$=“R“ THEN LET 

190 IF INKEYfs'R" THEN LET 

2 , 

195 PRINT RT 5,0;S$ 

200 GOSUB 620 ^ ^ 

210 IF RND>0.5 THEN GOTO 4.0 
iio LET R*R+INT ttRND*3)-(RND*3 


> ) 

250 IF R<1 THEN LET fi=l 

255 IF R>10 THEN LET R=10 

260 LET B=B + INT ( (RND'StS^ - tRND*3 

> J 

265 IF B>10 THEN LET B=10 

266 IF B<1 THEN LET 6=1 


40 


Sinclair Programme 






Spiele 


270 IF RND>0.5 THCN GOTO 4.© 

280 LET C=C + INT ( CRND äfSJ - f RND»3 


) ) 

290 IF C<1 THEN l_ET C = 1 
300 IF Ol© THEN LET C = 10 
310 GOTO 4-0 

320 REM ** FIRE LRSER ** 

330 LET L=L-0.7S 
34-0 PRINT RT 1,0; 

350 IF RBS (R-X)>3 OR RBS <B-Y) 
>3 OR RBS (C-Z)>3 THEN PRINT RT 
1,0;"OUT OE RRNGE.. 

360 FOR U=1 TO 50 

370 NEXT U 

37S PRINT RT 1,0;T$ 

380 IF RBS CR-XJ >3 OR RBS (B-Y) 
>3 OR RBS tC-Z)>3 THEN RETURN 
390 PRIKT RT 1,0; "ORBES TO FXRE 
UNDERSTOOD" 

4.00 FOR U=-3 TO 5© 

4-10 NE.XT U 

4-15 PRINT RT 1,0;TS 

4-20 IF RND < . ©5 TH EN GOTO 4-70 

4.30 PRINT RT l,e;"HBHi HXSSED 


4-4-0 FOR U=1 TO 50 
4.50 NEXT U 
4-55 PRINT RT 1.0:Ti 
460 GOTO 490 

470 PRINT RT 1,0;“COMPUTER REPO 
RTS RCCURRTE HXT" 

480 LET T=T+1 
432 FOR U=1 TO 50 
483 NEXT U 
485 PRINT RT 1,0;T* 

490 RETURN 
500 PRINT 

510 PRINT TRB 3;TERMINRTION 


520 PRINT 


530 IF T1<0 THEN PRZWT "UE MRUE 
BEEK IN SPflCE TOO LWQ“ 

540 IF L>0 TMEN PRIKt H UE HRU 
E BEEN OEFERTED 

550 PRINT _ 

555 PRINT RT 10,0;"ENERGY LEFT 
H '* I # ** ERQ3 
560 IF L<=B THEN P RIKT 
ENERGY BRNKS EMPTY 


"UE HRUE 
S;"RLIEN 


COLLIDEO 

SHIP“ 


UXT 


570 STOP 
580 PRINT 
590 PRINT 
H THE^j TRB 
S18 STOP _ 

630 IF RBS fR-X)>3 OR R BS (B-Y? 
v3 OR RBS (C-Z)>3 THEN RETURN 
650 IF RND .^0.75 T HEN RETU RN 
660 PRINT RT 1 ,0; " MÜW RLIENS 
FIRING RT US HBSSl" 

670 FOR U=1 TO 5© 

680 NEXT U 
690 PRINT RT l,0;Te 
700 IF RND >0.7 THEN ^ 

710 PRINT RT 1,0, ■ RLIEN FIRE 

HRS HIT US 
720 LET L=L-7 

"730 ip L < =0 THEN GOTO 50© 

740 FOR U=1 TO 50 

750 NEXT ü 

755 PRINT RT 1,0,T$ 

760 RETURN =• 

770 PRINT RT 1,0; ;.!■ II11 «LIEN F 
IRE MISSEDlllllill 
730 FOR U=1 TQ 50 
:’90 NE.XT U 
’92 PRINT RT 1,0;T* 


795 RETURN 

S00 REM ** PRINT OUT ** 

350 PRINT RT 10,0;"ENERG\ LEFT 
a ",L;" ERGS 

370 LET TI=TI-1 ^ 

330 IF TI=0 THEN GOTO SO© 

390 PRINT RT ,20;•TIME; ,TI 

300 IF L<3 THEN PRINT RT 12,4, 
ENERGY LOU ■ 1 *%" ^.-p 

lii PrIkF RT 14 -:i, "»SHIP IS'CR 

^äiriRSST^-iä-ORDINBTES, V.. 

936 PRINT TRB 4;.X; ,v, 


Q4.0 IF R=X 
goto 530 
>360 PRINT RT 
; RT 5,0 .;'' 

967 PRINT RT 5 
070 IF R<>.X OR 


RND B=Y RND C=Z 


THEN 

s 


5 ,0.; «T s,©; 

, 0 ; "RLIEN C.RRFT I 
BoY THEN PRINT 


IF 

IF 

IF 

IF 

IF 


•TO THE 
930 IF 
•990 
1000 
1010 
1020 
1030 
US" 

1040 
T OF 
1060 
1070 
1090 
1180 
1110 
1140 
1150 
1160 
1170 
1180 
1190 
1195 


R < X 
R >X 
B >Y 
B <Y 
C=Z 
C > Z 


THEN 

THEN 

THEN 

THEN 

THEN 

THEN 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


NORTH"; 
SOUTH" ; 
ERST" 
UEST" .; 
OF US" 
BEHIND 


IF 
US" 

RETURN 
REM ** 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 


C<Z THEN PRINT 


IN FRON 


INITIRL15E 
L=25+INT <RNOHf.3e) 
T=0 


TI =35 
R = INT 
B = INT 
C = INT 
X = INT 
Y = INT 
Z=INT 
S$ = " 


<RND*10)+1 
r.RND*10) +1 
(RND*1©)+1 
(RND*10)+1 
(RND* 10 ) -s-l 
(RND *10.' *3 


1197 LET T$=" 

t < 

1200 FOR J=0 TO 63 
1285 PLOT U,0 
1210 PLOT U,43 
1220 NEXT ü 
1230 FOR U=0 TO 4 
1240 PLOT 0,U 
1250 PLOT 63,ü 
1260 HEXT U 
1270 RETURN 


Roulette 1K 


Eine einfache Roulettesimulation 
allerdings nur mit Zahlen. Sie und der 
Computer haben jeweils 5000 Jetons Spiel- 
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kapital. Sowohl Sie als auch der ZX 81 
setzen auf eine Zahl, per Zufallsgenerator 
wird die Gewinnzahl ermittelt und der 
Gewinn ausgeschüttet - oder auch nicht. 


s 

le 

15 

so 

SS 

30 

35 

4-0 

4-5 

50 

55 

SO 

S5 


75 

SO 

S5 

OO 

95 

lOO 

105 

HO 

115 

120 

125 

130 

135 

14.0 

14-5 

150 

155 

ISO 

1S5 

170 

175 

130 

1S5 


L£T S^SOOO 
L.£T M— 

PRINT ••CRSINO" 

PRINT 

PRINT -EINSRTZ? 

INPUT R 
PRINT R 
PRINT 
INPUT 6 
PRINT B 

LET C=INT (RND*R+i) 

LET D = INT tRHD^l'iy 

PRINT "ICH UETTE ";C;" RUF 

PRINT 

LET Z=XNT \RHDiSrXiy 
PR INT •• GEUINNZRHL : " ; Z 
PRINT "SIE HRBEN ": 

IF ZOS THEN GOTO HO 


GEUüNNET^ 


LET S=S+R^2 

GOTO 120 

PRINT "UERLOREN" 

LET 5—5—R 

PRINT^^UND HRBEN "; 5 
PRINT 

PRINT "ICH HRBE 
IF D=Z THEN GOTO 155 
PRINT "UERLOREN" 

LET H=H-C 
GOTO ISS_ 

LET M=:M+P^tC 
PRINT "UND HRBE ";M 
IF H<1 OR S<1 THEN STOP 
INPUT R* 

CLS 

GOTO 15 


CRSINO 

EINSRTZT 10© 

ZRHL? 5 

ICH WETTE 50 RUF 6 

GEWINNZRHL :3 

SIE HRBEN UERLORFN 

UND HRBEN 4-S00 

ICH HABE UERLOREN 
UND HRBE 4.R40 


Über den Parcour vorwärtszufressen, wobei 
es sich gegen den Uhrzeigersinn bewegt. 

Sie können seine Bewegung nicht stoppen 
oder ändern, aber wenn Sie in eine der vier 
Spalten kommen, können Sie mittels der 
Richtungstasten die Spur wechseln. Wollen 
Sie also zum Beispiel in eine innere Spur, 
drücken Sie 5. 

Damit es für die kleine hungrige Schlange 
aber nicht zu einfach wird, läuft ein ekel¬ 
haftes kleines Monster in die entgegenge¬ 
setzte Richtung. Das Mohster ist nur darauf 
aus, die Schlange zwischen die Zähne zu 
bekommen. Das Monster läuft mit der 
gleichen Geschwindigkeit wie die Schlange, 
ist aber bei den Übergängen nicht so flexi¬ 
bel: Während die Schlange bis zu vier Spu¬ 
ren überqueren kann, ist es dem Monster nur 
möglich, eine Spur zu überspringen. 

Das Monster versucht. Sie zu fangen und in 
die gleiche Spur wie Sie zu kommen. 
Manchmal gibt es auch größere Futterstücke 
auf der Strecke, aber passen Sie auf, bevor 
Sie diese fressen! Sie hinterlassen nämlich 
Löcher, die das Monster als Spalt behan¬ 
delt, bei denen es also die Spur wechseln 
kann. 

Normale Punkte zählen je einen Punkt, große 
Stücke zählen fünf. Wenn alle Punkte aufge¬ 
fressen sind, beginnt die Schlange, Krümel 
zu fresssen und Punkte zu hinterlassen und 
wenn alle Krümel gefressen sind, beginnt 
die Schlange wieder, Punkte zu fressen. Sie 
müssen allerdings sehr gut sein, um dieses 
Stadium zu erleben. 

In der Theorie könnte dieses Spiel ewig 
gespielt werden, in der Praxis jedoch meint 
der Autor dieses Spieles, Tim Rogers, daß 
der höchste Punktestand, der zu erreichen 
ist, 44.256 beträgt. Sein Rekord liegt bei 
450, der aber mit etwas Übung sicher leicht 
geschlagen werden kann. 


Vorsicht 

Schlange! 16K 


Sie sind eine hungrige kleine Schlange 
auf der Suche nach Futter. Wenn Sie RUN 
eintippen, startet das kleine Tier, sich 


1 REM . 

2 GOSUB lOOO 

3 SLOU 

4. LET H1=0 
5 LET 5=0 
e LET 51=0 

8 RRND _ 

10 PRINT 
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pp I NT 
PRINT 
PRINT 


PRINT 

z _ 

FOR R=:l 
PRINT 

;TRB 3 

PRINT 




TO 


4^ 

;TRB 


fs w w ^^^mmmvnan^B^n^s^nnDQK^B^KapQgCK 
^ ^ —BHBBtf ,M Böui^ K Mamm wWiWfrcvH \ 


20S LFT U=224. 
20S I.ET G = 14. 
207 L.ET H=:27 
209 LET U1=U 


215 LET 
18397 

R1=PEEK 

220 

LET 

B1=0 

225 

LET 

LR = 1 

230 

LET 

R=R1*678 

235 

LET 

LB = 1 

240 

LET 

B=R14299 

245 

LET 

R2=0 

250 

LET 

C = i 

252 

LET 

0=R1*INT 

254 

IF PEEK 0<>2 


1639e+256*PEEK 


(RNDet-SSO) 
RND PEEK 

4. THEN GOTO 252 
255 IF PEEK 0=H THEN 

1 


O < > 1 


L.ET Ul-Ul- 


256 POKE O.. 52 

257 L.ET U=U-1 

25S IF S>a THEN RETURN 

260 L.ET D = -33 

270 IF R2=H THEN LET S=S+1 

280 IF PEEK m+C) =128 THEN GOSU 

B 4-00 

290 POKE R , G* ( CR2=H) + (R2=GM 
292 IF S=U1 THEN GOSUB 900 

S95 IF INKEY$ <>•••• RND PEEK (R+^r: 
> =0 THEN GOSUB 7©0 

300 LET R=R-«-C 

301 IF R=0 THEN LET Sl=Sl+5 

302 IF R=0 THEN GOSUB 252 

304. LET R2=:PEEK R 

305 IF PEEK R=:12 THEN GOTO 500 

310 POKE R.24 

320 IF PEEK KB+D)=128 THEN GOSU 

B 4.50 


330 POKE B.Bl 

335 IF B1=0 PNO 0=0 RND LR<>LB 
THEN GOSUB SOO 
337 IF B1<>0 THEN LET 0=0 
34.0 LET B=B+D 

34.5 IF PEEK B=24. THEN GOTO 500 


350 LET B1=PEEK B 
360 POKE B,12 
370 GOTO 270 
4.00 LET X=0 

4.02 IF C = 1 THEN LET X = -33 
405 IF X=-33 THEN GOTO 435 
410 IF C=-33 THEN LET X=-l 
415 IF X=~l THEN GOTO 435 
420 JF C=-l THEN LET X=33 
425 IF X=33 THEN GOTO 435 
430 IF C=33 THEN LET X=1 
435 LET C=X 
440 RETURN 
450 LET Y=0 

452 IF D=-33 THEN LET Y=1 

455 IF Y=~33 THEN GOTO 485 

460 IF D=i THEN LET Y=33 

465 IF Y=33 THEN GOTO 485 

470 IF D=33 THEN LET Y=-l 

475 IF Y=-i THEN GOTO 435 

480 IF D=-l THEN LET Y=-33 

485 LET D=Y 

490 RETURN 

500 POKE R.. 23 

510 FOR H = 1 TO 26 

520 RRNO USR 16514 

530 NEXT M 

535 LET S=S-fSl 

590 SLOU 

600 PRINT RT 9^ 9; “SCOREll**; S 

605 IF Hi<S THEN LET H1=S 

810 PRINT TRB 9; H I-SCORE^** ; H1 

620 PRUSE 35000 

630 CLS 

640 GOTO 5 

700 LET R3=R 

705 LET R$=INKEY$ 

710 LET R=R+ ( ( (INKEY$ = **8*U - ( INK 

EY$ = -'5 *) ) # iRßS C=33) + ( (INKEY$ = -e 
" ) - C rNKEY$ = "7" ) ) *33* l'RßS C = l) ) *2 
720 IF R>Rl+726 OR R<R1 OR PEEK 

R<>0 THEN LET R=R3 
730 IF R=R3 THEN RETURN 
740 LET L5 = LR+ (C = -l) * (R$ = *'6*‘) * < 

C = l) * (R$ = ‘*7“ ) + (C = -33i * m$ = '*5- ) + ( 
C=33) * (R$=”8'-> 

75© IF L5=LR THEN LET L5=LR-1 

755 LET LR=L5 

760 RETURN 

300 LET 0=1 

810 LET D1=D 

820 GOSUB 450 

830 LET D2=D 

840 LET D=D1 

850 LET U=LR-LB 

860 IF U>1 THEN LET U=1 

870 IF U<-1 THEN LET U=-l 

375 LET LB=LB4U 

880 LET B=B*U*D2*2 

890 RETURN 

900 LET S1=31*S 

910 LET S=0 

920 LET G=H 

930 IF H<>G THEN GOTO 950 
940 LET H=14 
950 LET U1=U 
980 Rt!TURN 

1000 LET H$ = *'042 012 0S4 006 023 

043 03S 126 2S4 118 ©32 003 OlB 

248 201 198 128 119 024 242“ 

101© ERST 

1020 FOR M=18514 TO 18533 
1030 POKE hUURL M$ ( TO 3) 

1040 LET TO } 

1350 NEXT ri 
1080 RETURN 
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Musler 16 K 


Wenn eine Münze dreimal geworfen wird, 
gibt es folgende Möglichkeiten: 

KKK 

KKZ 

KZK 

KZZ 

ZKK 

ZKZ 

ZZK 

und ZZZ, wobei "K" bedeutet, daß die Münze 
auf den Kopf, "Z" daß sie auf die Zahl 
fällt. 

Das Spiel "Muster" basiert darauf. Der 
erste Spieler wählt eine dieser Möglichkei¬ 
ten, Spieler B eine der übrigen. Gewonnen 
hat derjenige, dessen Muster zuerst er¬ 
scheint. 

Das Computerprogramm ist so aufgebaut, daß 
der ZX 81 die Wahrscheinlichkeitsrechnung 
zu seinem Vorteil nützt. 


lO PRINT TRB 4;"MUSTER" 

30 PRINT 

30 PRINT "IN DIESEM SPIEL UERD 
EN DREI" 

4.0 PRINT "MUENZEN GEWORFEN. DRB 
EI GIBT ES¬ 
SO PRINT "FOLGENDE KOMBINRTION 
EN,- " 

60 PRINT 

70 PRINT " KKK ,, ZKK, KZK ^ KKZ, ZZK,, 
KZZ,ZKZ,ZZZ” 

30 PRINT 

90 PRINT "K=K0PF","Z=ZflHL" 



100 PRINT 
110 PRINT 

120 PRINT "SIE UND ICH UREHLEN 
JE EINE DER" 

130 PRINT "KOMBINRTIONEN." 

14-0 PRINT "DER, DESSEN WAHL ERSC 
HEINT,HRT" 

1S0 PRINT "GEWONNEN." 

160 PRINT "SIE KOENNEN DIE GESR 
MTRNZRHL DER" 

170 PRINT "WUERFE BESTIMMEN." 
130 PRINT 

IGO PRINT "DRUECKEN SIE NyL" 

200 INPUT R* 

220 LET D*="KKK,ZKK,ZZZ,KZZ,KKZ 
,ZKK,ZZK,KZZ,KZK,KKZ,ZKZ,ZZK,KZZ 
,KKZ,ZKK,ZZK" 

230 DIM S*(S,3) 

24.0 DIM C$t8,3) 

250 DIM E$(3> 

255 LET L=15 

250 LET P=1 

270 FÜR 1=1 TO S 

280 LET S*<I)=D*tP TO ) 

290 LET P=P+4. 

300 LET C$(I)=D*(P TO ) 

310 LET P=P+4. 

320 NEXT I 
330 CL.S 

34.0 PRINT ''UELCHE KOMBINRTION U 
REHLEN SIE?'* 

35© INPUT E* 

360 FOR 1=1 TO S 

370 IF S$(I)=E* THEN GOTO 4-10 
330 NEXT I 

390 PRINT ••FRLSCHE EINGRBE...*' 
395 L.ET L.=L~1.7 
4.00 GOTO 34.0 

4-10 PRINT "IHRE KOHB INRT ION E 

$ 

415 LET C=0 

420 LET R$-C$(I> 

425 LET S=0 

430 PRINT "HEINE KOMBINRTION:"; 

"^431 PRINT ,,"UIE UIELE SERIEN 7 

«• % 

432 INPUT U 

433 LET U=RBS INT W 

434 PRINT U 
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4-35 PRINT 

4.37 FOR J = 1 TO U 

4.4.0 LET = 

4.50 FOR 1=1 TO 3 
450 LET R=RND 

470 LET B*=B*+(”Z" RND R<=.5)+C 
’K** RWD R>-5i 
4S0 NEXT I 

490 PRINT J; •'-UURF: - ; B$; 

S00 IF Ü<=L RND B*<>E* RND B*<> 
R$ THEN PRINT 

520 IF B*=E* THEN PRINT TRB 14; 

’ BIE HRSEN GEWONNEN*' 

530 IF B*=Eil THEN L.ET S=S-I-1 

540 XF S*=R* THEN PRXNT TRB 14; 

'ICH HRSE GEWONNEN" 

550 XF B$=R$ THEN L.ET 0=0 + 1 

555 IF U>L THEN SCROLL 

560 NEXT sJ 

570 FOR 1=1 TO 50 

530 NEXT I 

590 C.L.S 

600 PRINT "ERGEBNIS ;" 

610 PRINT ••--*• 

620 PRINT 

630 PRINT 

640 PRXNT S;" MRL IHR MUSTER^" 

650 PRINT 

660 PRINT C;" MRL HEIN HUSTER" 

MUSTER 

XN DIESEM SPIEL. WERDEN DREI 
HUENZEN GEWORFEN.DRBEX GIBT ES 
FOLGENDE KOMBINRTIONEN: 

KKK ^ ZKK ^ KZK ^ KKZ .. ZZK ^ KZZ > ZKZ ^ ZZZ 

K=KOPF Z=ZRHL 

SIE UND ICH WREHLEN ÜE EINE DER 
KOMBINRTIONEN. 

DER. DESSEN URHL. ERSCHEINT ^ HRT 
GEWÖNNEN. 

SIE KOENNEN DIE GESRMTRNZRHL. DER 
UUERFE BESTIMMEN. 

DRUECKEN SIE N.'L. 

WELCHE KOMSINRTION WREHLEN SIET 
IHRE KOMBINRTION:ZKZ 
HEINE KOMBINRTION:ZZK 


WIE UIELE SERIEN T 15 


1. WURF:KKK 

2. WURF:ZZZ 
3 - WURF:KZZ 

4. WURF:ZZZ 

5. WURF:ZZZ 

6 . WURF:KZK 

7. WURF:KZZ 

3. WURF:ZZZ 
9.WURF:ZZK 
1©.WURF:ZZZ 

11. WURF:ZKZ 

12. WURF:ZKZ 

13. WURF:ZZK 

14. WURF:ZKZ 

15. WURF:ZZZ 


ICH HRßE GEWONNEN 

SIE HRBEN GEWONNEN 
SIE HRBEN GEWONNEN 
ICH HRBE GEWONNEN 
STF HRBEM 'GEWONNEN 


Dschungel 16K 


Bei diesem Spiel finden Sie sich 
plötzlich im tiefsten Dschungel in Afrika 
wieder. 

Sie beginnen das Spiel mit 100.000 KES (die 
lokale Währungseinheit), gespendet von 
größzügigen Reichen, die noch an den Geist 
der Erooerung glauben. Mit diesem Geld 
müssen Sie Vorräte kaufen und Eingeborene 
bezahlen, die Sie durch den Dschungel lei¬ 
ten. Jeder der Eingeborenen braucht ein 
Essenspaket in der Woche. 

Nachdem Sie Ihre Vorräte gekauft haben. 
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beginnt das Spiel richtig. Das Spiel dauert 
5 Runden, jede eine Woche lang. Sie müssen 
diese Periode überleben. Wenn Sie zuwenig 
Geld, Nahrung oder Eingeborene haben, wird 
der Bildschirm schwarz und alles ist vor¬ 
bei . 

Eine Menge ekelhafter Überraschungen lauert 
im Dschungel auf Sie! 


60 PRINT QT 3,3; "j 


70 NEXT B 
80 PRINT ^^,TflB 6;“RNY KEY TO 
CONTINUE" 

90 IF INKEY $ = •••• THEN GOTO 90 
110 CLS 

120 PRINT TRB 10;“KES 100000" 

125 PRINT ^,"HOU MRNY NRTIOES D 

O YOU URNT TO HIRE RT 150 KES PE 
R UEEK 7" 

130 INPUT N 

14-0 PRINT ,,"HOU MRNY FOOD SUPP 

LIES RT 50 KESERCH 7" 

150 INPUT F 

160 LET R=fl-(F*50) 

180 IF R<0 THEN PRINT "YOU RRE 
OUT OF HONEY" 

190 IF R<0 THEN GOTO 8500 
200 PRINT , "HOU MRNY GUNS tWIT 

H RMMO) RT 100O KES ERCH 7" 

210 INPUT G 
220 LET RsR-(G*lO00) 

230 IF R<0 THEN GOTO 180 
24-0 PRINT .. ^ "HOU MRNY TENTS RT 
500 KES ERCH 7" 

250 INPUT T 

260 LET fi=R-(T»500) 

270 IF R<0 THEN GOTO 180 
280 CLS 

290 GOSUB 7000 

//^/"PRESS RNY KEY TO 

c c. o. r>i 

335 IF INKEY$="" THEN GOTO 335 

336 FOR C=1 TO 5 
34.0 LET R=R-(N*I) 

34-2 LET F=F-N 
34-5 LET Z=0 

34-6 IF R<0 THEN GOTO 180 
34-7 IF F<0 THEN PRINT "YOU RRE 
OUT OF FOOD" 

34-8 IF F<0 THEN GOTO 8500 
350 IF RND>.8 THEN GOSUB 1000 

360 IF RND>.8 THEN GOSUB 1500 

370 IF RND >.3 THEN GOSUB 2000 

380 IF RND>.8 THEN GOSUB 2500 

390 IF RND>.S THEN GOSUB 3000 

4.00 IF RND.•^.8 THEN GOSUB 3500 

4-50 IF RND . 95 THEN GOTO 4-000 
460 IF 2=0 THEN GOSUB 4500 
470 CLS 

480 GOSUB “OO0 

490 PRINT ^^,"RNY KEY TO CONTI 
NUE " 

500 IF INKEY$="" THEN GOTO 500 
520 NEXT C 
570 CLS 


SSO 

590 

500 

PRINT 

PRINT 

PRINT 

TRB 

TRB 15; ".P" 

;TflB 9; ^1* . 

2;"|";TRB 8;"^^ 

SIO 

VL 

PRINT 

TRB 

2, " S ";TRB 7.; "JV 


^0 PRINT 


530 

PRINT 

Thd 

/ j 


e.io 

PRINT 

TRB 

7; " , 

1 THE" 

650 

PRINT 

TRB 

7; " 1 

1 1ELEPHRN 

! S ** 
660 

PRINT 

TRB 

7; " 

n 1 GRRUE 

670 

PRINT 

TRB 

7; " 

1 ^ 1 YRRD 

SSO 

PRINT 

TRB 

7; " 

1 

690 

PRINT 

TRB 

7; " 


PRINT 

• 



; w w 






PRINT 

/ .* 

^ , ••YOU.'VE DONE IT 

720 

PRINT 

/ 

UITH 

R; “KES TO S 

PRRE 

• t 




750 

GOTO 

8630 



1000 

LET Z 

= 1 



1020 

LET H 

= INT 

(RND^IO) -1-1 

1030 

CLS 





1040 PRINT ^ “YOU RRE BEING RTTR 
CKED BY LIONS" 

1050 PRINT .^"RND YOU HRUE “;G;" 
GUNS " 

1055 IF G<1 THEN GOTO 1200 
1080 PRINT ,,"HOU MRNY DO URNT T 
Q USE 7" 

1070 INPUT Y 

1075 IF Y>G THEN GOTO 1070 
1080 IF Y»RND<.a THEN GOTO 1200 
1085 LET G=3-Y 

1090 PRINT , "YOU UON,USING "; (Y 
42) " BOXES OF" 

110O PRINT .. .. "RMMO" 

1110 PRINT ^^^,"RNY KEY TO CONTI 
NUE" 


1120 IF INKEY$="" THEN GOTO 112© 
1130 RETURN 

1200 PRINT H;" OF YOU NRTIUES UE 
RE SRURGED" 

1210 LET N=N-H 

1220 IF N<0 THEN PRINT . ."YOU HP; 
UE NO NRTIUES LEFT" 

1230 IF N<0 THEN GOTO 850© 

1240 PRUSE 200 
1250 RETURN 
1500 LET 2=1 

1520 LET H=1NT (RND420)+1 

1530 CLS 

1531 FOR B=1 TO 7 
1535 PRINT RT 0.0; 

1540 PRINT TRB 3;"OUICKSRND" 
"";TRB 14;"-" 

"JTRB 14; " S " 


";TRB 13.: 
";TRB 13;’ 
;TRB 14; 
;TRB 14, 


1550 PRINT 
1560 PRINT 
1570 PRINT 
1580 PRINT 
1590 PRINT 
1600 PRINT 
161© PRINT 
1620 PRINT py 
1630 PRINT RT B.4."’ m 
1640 :|^B+1<S THEN PRINT RT B + l. 

1650 IF B+2<3 THEN PRINT RT B+2 . 
5 ; " nhAdP " 

1660 IF B+3-{8 THEN PRINT RT B+3.. 


1670 IF B + 4<S THEN PRINT RT B+4.. 

6 ; " " 

1680 IF B + £ <8 THEN PRINT RT B+5.. 

1690_IF B+e. <8 THEN PRINT RT B+6. 


1700 NE.XT B 

1710 PRINT , "YOU L.OST “;H;“ NRT 

lUES IN THE •• 

1720 PRINT , "OUICKSRND" 

1730 LET N=:N-H 

1740 IF N<Gi THEN GOTO 1220 
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1750 PRINT 


’RNV KEY TO CONTINU 


i:^S0 IF INh.EY$ = ”" THEN GOTO 1/6 t 
1770 RETURM 
£000 LET 2r:l 

2020 LET Hr:INT (RND:»5i+l 
204-0 CLS 

£050 PRINT , , "YOU CRN SEE RN EL.E 

L-l’PsXC 'c:>XORi‘*l ' 

2060 PRINT .**’C:OMING. DÜ YOU - ' 

2070 PRJNT SET CRMP RND 

PIT UNTIL l*tS OUEP*’ 

2069 PRINT , , •* (Bj Gü UNDER R TR- 

E FÜR SHELTER" 

2090 FORINT .. “ (0.1 CPRRY ON URL-K 

THEN GOTO 210u.^ 
’ THEN GOTO 220 


‘HEN GOTO 24 C 


2100 

IF 

INh.EY$ = '• ■■ 

2110 

IF 

INk.EY$ = "R' 

VL- 

r- 2 0 

If’ 

iNt.rv ii = •© 

2130 

IF 

INi-;EY$ = ’'C 

«7 



2140 

GOTO e!l00 

2200 

PRINT y y ' THE 

D H 

ly " 

re. MT 5“ 

2210 

LET T=:T~H 

2 2 2 0 

Ir 

T<0 THEN 

T. i.ti- 

"1' 

ENTS LEFT“ 

2230 

IP 

T<0 THEN ( 


*'YOU Hf 


2240 PRINT ^,*‘RNY KEY TO COKTINU 

22S0 IP INKEY$ = '''* THEN GOTO 2250 
2260 RETURN 

2300 PRINT ^,“THE TREE URS HIT 5 
Y LIGHTNING“ 

2310 PRINT ,,“KIL.LING “;H;“ NRTI 
UES“ 

2320 LET N=N-H 

2330 IP N<0 THEN GOTO 1220 

2340 GOTO 2240 

2400 LET Ri^INT lRND*4) -l-l 

2410 IP R=1 THEN LET B*=“CRUE“ 

2420 IF R=2 THEN LET B*=“HEN HOU 

3E“ 

2430 IP R=3 THEN LET B*=“RBRNDON 

ED HOU3E“ 

2440 IF R=4 THEN LET B*=“POT HOL 

2450 PRINT .. .. “UHILE URLKING YOU 
FOUND R“ 

2460 PRINT ^^B$;“RND YOU“ 

2470 PRINT ^^“UERE UNHRRMED“ 

24S0 GOTO 2240 
2500 LET Z-1 

2510 PRINT ^ ^ “YOU RRE LOST.. 50 Y 

OÜ MUST SEND““OUT SCOUTING PR 
RTIES TO FIND“ 

2520 PRINT ,^“THE TRRIL.“ 

2550 PRINT , “YOU HRUE “;N.:“ NRT 
lUES“ 

2555 PRINT ^^“HOU HRNY PER PRRTY 
2560 INPUT X 

2570 PRINT ,,“HOU MRNY PRRTJES T 


2580 INPUT Y 

2600 TF Y^fX>N THEN GOTO 2560 
2620 IF (RND^Y)>3 THEN GOTO 265© 
2630 IF <RND*X) >4 THEN GOTO 265© 
2640 PRINT .. ^ “YOU RRE LOST POREU 
ER ■ “ 

2645 GOTO 350© 

2650 PRINT ^,“YOU FOUND THE TRRX 
! % % 

2S6Ö GOTO ,224-0 
3000 LET Z=1 
3010 CLS 


3030 PRINT ^ 
E NRTIOES SRY 
3035 PRINT ,y 
ORE MONEY” 
304-0 PRINT y 


”R SPOKESMRN FOR TH 
S” 

-HIS MEMBERS UIRNT H 
"OR THEY UXLL LEROE 


304-5 PRINT . . ”HOU MUCH MORE (ERC 
H) CRN YOU •• y .... "OPFER 7" 

3050 INPUT Y 

3080 IF (RND»Y.t -^3 THEN GOTO 3200 
3100 PRINT .."THEY HRUE RLL LEFT 
YOU" 

3150 GOTO 3500 
3200 LET I=I+Y 

3210 PRINT y y"THE NRTIUES HRUE R 
CCEPTED" 

3215 GOTO 224-0 
3500 LET Z=1 
3510 CLS 

3530 PRINT y y"YOUR PRTH IS BLOCK 
ED BY SNRKES" 

354-0 PRINT yy"UILL YOU USE BUNS 
OR UILL YOU" 

354-5 PRINT . . "JBßLK P-RSTT ,/G OP W 
) •• 


3550 LET H:=INT (RND»10) +1 

3S60 XF INKEY$="" THEN GOTO 356© 

3570 IF INKEY*="G" THEN GOTO 365 


3580 PRINT ... H;" OF YOUR NRTIUES 
UERE KILLED" 

3590 LET N=N-H 

'=*600 IF N<0‘ THEN GOTO 1220 


3610 RETURK 
3650 PRINT 
5);" GUNS" 

3560 LET G=G-INT (H/S) 

3670 IF G<0 THEN PRINT 
OUT OF GUNS" 

3680 IF G<0 THEN GOTO 8500 
3690 GOTO 224-0 

I RT '7 = 'l 


“YOU USED “.;INT (H. 


YOU RRE 


4010 CLS 

4020 PRINT ....“THE NRTIUES HRUE R 
EUOLTED RND“^,,“LEFT YOU “ 

4030 GOTO Q500 

4500 cLs^^ ••aaa^HHBiH§Di“ 

4520 PRINT /^“YOU HRUE HRD R PER 
FECT UEEK“ 

4525 LET H = INT tRND«-100) -H 

4526 LET F=F+H 

4530 PRINT “BONUS -l-“;H;“ FOOD 
PRCKS“ 

4550 GOTO 2*240 

7000 PRINT TRB lO;“KES “;R 

7010 PRINT “NRTIUES “N 

7020 PRINT . “FOOD P 

7030 PRINT ,,“GUNS “;G 

7040 PRINT .. .. “TENTS “.;T 

7050 RETURN 

3500 PRUSE 1O0 

3510 CLS 

35*20 POR R=0 TO 21_^ 

I 


8600 FOR R=1 TO 8 ^ 

8605 PRINT RT 8 ^ R-f-l; “MISSIONBPRI 

8610 PRINT RT 8 , R; 1 PWkälJI 'MW 

T3ai** 


853^PRI^r 

859^NE>^^^ 


8620 NEXT fi 

3650 PRINT RT 20>11;"RNOTHER GO" 


8665 CLS 
8660 INPUT R¥ 
8670 IF R*="Y” 
8680 STOP 


THEN RiJN 
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LabyrinHi 16K 


Sie müssen den Weg durch ein Labyrinth 
finden, ohne an einer Seitenwand 
anzustoßen. Passiert Ihnen das doch, werden 
Sie zufällig wieder in das Labyrinth 
geschleudert. 

Für Programmierer interssant: Dieses 

Programm läßt sich nicht LISTen. Um nach 
erfolgreicher Labyrinthbewältigung noch 
einmal zu spielen, drücken Sie RUN und 
anschließend NEWLINE, obwohl man im 
Bildschirm nichts sieht. 


Ritas33 > 

30 L-ET 



4-Q LET RS (3)=*’ M 

S0 LEX (4.3 =•• ^ m m 





s »■« i ta " " 

3 0 : ?=~r O «fc f "7 I — • • SJi: :«<: :v«vv5ÄSfc :vCv 

:<«««, i\*.v 

JiSttiüS!: SftV Äw * • 

*V. iiXtrtfizittxiiitiVr rtW \\\Y 


5»? 


90 LE^T...RJ(e) ^ 

M Mi ^ 


-*#• ' ^ — ..«kSw.w: 


X00 EE 

1. 2.0 E ET R $ ( i 0 .> = “ 

;€ iM ;# 




MS? 


r30 LET R$C12j =•• 

Xv^cwovCK-Xv»» MCifr :•>»:<«■ :«<• ? V 

ssffisss««®? wi mw is&- *?: 


150 LET RS (14> =" 

«» 'A^A^A M«. V 

«¥. 


'“iw 


ISO LET Ri ( 15) =•■ 

m M' 

1T0 LET Ri(16)=. 

^ m m iC; 


_ »t v/A vyy.vA’^A'A Wrvx-*-Äw-vv 




:-»<r 

«ix 




19© LET R$(183 =’* M 

JCC& *-*-*-*-*-*?J-*-* 


'V 


. .......... .. -«>C-XC«««L;- 


200 LET Ri (19) =■• pl m M ^ M M 

m^m ;# 

21© LET RS(20)=" ^ m 



m m m m 

.25© LET RS(24.)=" 

«2w«M«»»»w3fee«^j-vxyp»>»>«o«- 5«<* t» 

5555 


Ä\V 

_* I 

^ ‘ . 

55^ 

200 FRIfv?T “TRETE DRUECKEN* 
27*0 PRUSE, 4-0000 
230 RxRMD 

290 FGR 1=1 TO 25 
300 LET R$(I.1>=CHR$ 113 
310 NEXT I 
1-34-0 C L S 
1-350 &: O 3 ü B 993B 
1360 LET X$=““ 

1-370 LET XI =32 
1330 LET Yl=24 
1-390 LET RZ = 12 
1900 LET X = INT iRNDa‘lE+3) 
1910 LET Y = INT (RND^ll-f2J 


ISS© IF R$ CY.. X) =“p“ TH£^4 GOTO 19 
03 


1930 

I.F^ 

lä = “ *• 

THEN 

LET X$ = ‘^l^' 

-T -o«r!i 

LET 

Z=0 



1990 

L ET 

R$ (Y 

..X) ="M 


2000 

) =** ‘ 

XF 

IS< > “ 

“ TH£t'4 

LET H$4Y1^ 

2010 

LET 

I Ä — T M J<; A 


2020 

LET 

:< 1 =.X 



2030 

LET 

Y 1 = Y 



204-0 

LET 

Z=Z + 1 


205© 

IF 

Z > =RZ 

THEN 

GOTO 1900 

2360 

IF 

I$ = “ “ 

THEN 

GOTO 1990 

2370 

IF 

Y=24. 

THEN S 

TOP 

2333 

Ir 

J$ = ”5 

“ THEN 

LET X=X-1 

2093 

XF 

I$ = “6 

THEN 

LET Y=V*f-l 

2100 

IF 

I ^ = / 

•* THEN 

LET Y=V-1 

2110 

IF 

r$ = ”s 

“ THEN 

LET =X -h 1 

er 120 

Ir 

Ri (Y.. 


THEM GOTO 


X '} 


00 
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2 130 

GOTO 

1230 

3000 

SRUE 

"LfiBYRIN" 

3010 

RU.N 


2SS6 

CET X 

YZ= iPEEK 

EK 1640 i;i +S) 

29-07 

LET XY=.XYZ 

22S3 

FR3T 


22o2 

CET X 

=xyY253 

2220 

CET Y 

= INT X 

222 1 

CET Z 

=(X-Y)*2 

2222 

PDKE 

16396,Z 

2223 

pop;e 

16323,Z 

2224 

POKE 

16327,Y 

2225 

POKE 

16322,Y 

2225 

PDKE 

16441,0 

2997 

POKE 

16442,0 

2293 

SC DU 


2222 

RETURN 


335 

34-0 

ft« 

&i^ö0 Hf- i pe: 3AB 

35© 
350 
370 
37 X 
372 
38© 
3S© 
4.00 
4 - 10 
4.2© 
4.30 
4.4.0 
4-50 
4.51 

452 

453 

454 

455 
458 

457 

458 
452 


CUS 

PRXNT PT 


11^ 10;GL.U5CK 


PPUS5 30 
Ci^S 

L.5T 0=0 
LET P=© 

L,ET ZX = --10 
LET 5P=0 
GQSUB 82© 
l^ET R=C 
GQSUB 820 
L.ET S=C 
GQSUB 820 
L.ET T=C 
GQSUB 82© 

L.ET U=C 
PRXNT RT 2>0; 
PRINT RT 3..0; 
PRXNT RT 4^0j 
PRXNT RT 5,0; 
XF R<10 THEN 
PRXNT RT !>©; 
PRXNT RT 8,©; 
GOTO 481 
PRXNT RT X>©j 





450 PRXNT RT 8,0;R;' 




17 und 4 16K 


Eine Simulation dieses beliebten Karten¬ 
spieles unter Ausnutzung der Grafikmög¬ 
lichkeiten des ZX 81. Das Programm druckt 
die Bedienungsanleitung vollständig aus, 
sodaß sich eine Erklärung an dieser Stelle 
erübrigt. 

Karl Hauer 


461 

482 

483 

484 
465 
488 

467 

468 
482 

470 

471 

472 

473 

474 

475 

476 

477 



PRXNT RT 8,0; '*DU HRST: " 
PRXNT RT 0,0; '‘XCH^HRBE:: 
PRXNT RT 10,0; “ 

PRXNT RT 11,0: “‘1 
PRXNT RT 12,©; ‘1 
PRXNT RT 13,0; 

XF T>2 THEN GOTO 
PRXNT RT 2,©;T;'‘f 
PRXNT RT 14,©;T; 

GOTO 473 
PRXNT RT 2,0; 

PRXNT RT 
PRXNT RT 
PRXNT RT 
PRXNT RT 
PRXNT RT 

XF U<10 THEN GOTO 481 




1© REM BI.RCK ÜRCK 

20 PRXNT •'FRL.L.S DU EINE RNUEIT 
UNG BRRUCHSTTXPPE U EXN'' 

30 PRXNT “UENN NICHT SO GEBE N 
EXN^ " 

40 XF XNKEV$t="*' THEN GOTO 4© 

50 XE XNKEY* = ""U'" THEN GOTO 20 
60 XF XNKEY$ = -N*‘ THEN GOTO 30© 
70 GOTO 4© 

20 CCS 

10© PRINT RT 0,0;''ICH ZIEHE 4 K 
RRTEN,2 FUER MICH, 2 FUER DICH.“ 
11© PRXNT RT 4,0;'"UON MEINEN KR 
RTEN ZEIGE ICH EINE'* 

120 PRXNT RT 7,©; '‘DEINE K RRTEN 
ZEIGE ICH BEIDE.“ 

130 PRINT RT 8,©;“UXCCST DU EI 
NE KRRTE SO GEBE U EIN,“ 

140 PRINT RT 10,0;“KEINE KRRTE 
HEHR SO GEBE N EIN.“ 

150 PRINT RT 14,0;“UER 21 UEBER 
SCHREITET HRT UERCO-REN.“ 

160 PRINT RT 17,0;“BEI GCEICHST 
RND GEUINNE ICH.“ 

170 PRINT RT 2©,©;“GEBE U E T Z T U 
EIN UND ES GEHT COS“ 

270 XF XNKEY$=““ THEN GOTO 27© 
280 XF INKEYTHEN GOTO 300 
22© GOTO 270 
300 CET R1=0 
310 CET B1=0 


478 PRINT RT 2,5;“S*“;U;' 


472 

48© 

481 

482 


PRINT RT 
GOTO 483 
PRINT RT 2,5;U; 
PRXNT RT 14,5;U 


14.,5; ‘ ”, 


U 


43© PRINT RT 8,©.: “DU 


;u 
;u 

HRST: 



“;t + 


500 l_ET D=R+S 
510 EET P=T+U 

520 IF P=21 THEN GOTO 64© 

530 GOSUB 360 

54© IF l- = l THEN GOTO 63© 

550 IF D<=i6 THEN GOTO 740 

551 PRINT RT 2,5;“f' 

552 PRINT RT 3,5j 

553 PRINT RT 4,5; ”1 

554 PRINT RT 5,5;“! 

555 IF S>3 THEN GOTO 553 

556 PRINT RT 1.5; S; “jüü“; S 

557 PRINT RT 6,5;S;”M“;S 
556 GOTO 561 


*’; s; “3- 


”; 5; “* 


553 PRINT RT 1,5; 

56© PRINT RT 6,5; _ , . _ 

561 PRINT RT 0,0;“ICH HRBEi ”;D 
570 PRINT RT 8,0;“DU HRST: ";P 
58© IF P>D THEN GOTO 62© 

60© PRINT RT 16.0;“ICH HRBE GEW 
ONNEN." 


605 LET R1=R1+1 
610 GOTO 1060 
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620P^NT RT 16^0; •• 

B1=B14^1 
630 GOTO 106© 

650 IF D=S1 TH5H GOTO 67© 

66© GOTO 551 

670 PRINT RT 17.. 0:''ICH HRBE RUC 

N 1 ** 

675 PRINT RT 16.0;"55 GIBT KBIN 

5N GEUINNER'* 

660 GOTO 561 
6G0 GQSUB SQ0 
70© PRINT RT 10..6P;"i 

701 PRINT RT 11..SP; 

PRINT RT 12..SP; 'I 

PRINT RT 13.. SP;'i 

IF OS THEN GOTO 706 
PRINT RT S..5P; C; C 

706 PRINT RT 14-. SP; C;C 

707 GOTO 710 

706 PRINT RT S . SP; ; C; 

70S PR INT RT 14. . SP ; 'fc'' ; C ; -'dl“ 

710 L.ET P=P-^C 

712 PRINT RT 6.0; ''DU HRST^: ; P 

715 IF P>21 THEN GOTO 600 
730 GOTO 53© 

74.0 PRINT RT 2..ZX;'J 

74.1 PRINT RT 3.,ZX; 

74.2 PRINT RT 4.,.ZX; '‘| 

PRINT RT 5^ZX;'‘f 
IF S<10 THEN GOTO 74.6 

74.5 PRINT RT 1..ZX; 

74-6 PRINT RT 6,ZX;"fc' 

GOTO 75© 

PR INT RT 1, zx ; s ; ; s 

74-9 PRINT RT 6 .. ZX; S; ''Ä'* ; S 

75© PRINT RT ©^0;"ICH HRBE: ; D 

751 GOSUB 620 
760 t.ET D=D-I-C 

770 PRINT RT 2,ZX; 

771 PRINT RT 3,ZX; 

772 PRINT RT 4,ZX; 

773 PRINT RT 5, ZX; 'i 

774 IF OS THEN GOTO 776 

PRINT RT i.,zx; c; c 


702 

703 
^04 

705 


743 

744 


747 

746 


775 





776 PRINT RT 6 , ZX; C; ' i» '; C 


; C; 

i • • «» 

^ 1 


; D 


GOTO 760 

776 PRINT RT l.,ZX;“ 

77S PRINT RT 6..ZX;- 
7B0 PRINT RT ©.,©;"ICH HRBE: 

7S0 IF D>21 THEN GOTO 62© 

600 IF D<=:16 THEN GOTO 750 
610 GOTO 561 

620 l-ET C = INT CRND^ll) ^1 
825 L.ET ZX = ZX+5 
830 IF C=ll THEN GOTO 850 
640 GOTO 660 

85© IF (D4^0 >21 THEN GOTO 67© 
860 GOTO 660 
670 UET 0=1 
68© RETURN 

690 UET C=rINT (RND^Ml) -l-i 

695 L.ET SP=SP4-5 

900 IF C=ll THEN GOTO 92© 

910 GOTO 95© 

92© IF CP^O >21 THEN GOTO 94© 
930 GOTO 950 
940 L.ET C:=l 
950 RETURN 

965 PRINT RT 16 ^ 0;'‘U1L.I.ST DU EI 
NE KRRTE.ODER KEINE7*' 

970 IF INKEY$ = ‘"* THEN GOTO 970 
975 PRINT RT 16.,0;‘' 


995 GOTO 965 
1020 LET L. = l 
1030 GOTO 105© 

1040 L.ET l«=0 
1050 RETURN 

1060 IF B1<R1 THEN PRINT RT 17^0 
; '‘ES STEHT Rl; Bl; FUER MI 

CH. '' 


1061 IF B1>R1 THEN PRINT RT 170 

; "ES STEHT Bl; " : Rl; " FUER DI 

CH. " 

1062 IF R1=B1 THEN PRINT RT 17,0 

; "ES STEHT : ";R1; " BEIDE*' 

1070 PRINT RT 19.0:"HOECHTEST DU 
NOCHEINMRC 5PIECEH7" 

1060 PRINT RT 20,0;"TIPPE ODE 

R Kein ein." 

1090 IF INKE\'$ = "- THEN GOTO 1090 
1095 IF INKEV*=:"U" THEN GOTO 335 
1100 IF XNKEY5r = "N" THEN GOTO HO 
9 

1105 GOTO 1090 
1109 CLS 

111© PRINT RT 10,9;"RUF WIEDERSE 
HEN" 


1120 STOP 




ICH HRBE GEUONNEH. 

ES STEHT 1:0 FUER MICH. 


96© 

0 

IF 

XNKEY$="U" THEN 

GOTO 

102 

990 

0 

IF 

INKEY$="N" THEN 

GOTO 

104 


HÖECHTEST DÜ NOCHEINMRC SPXEL.EN7 
TIPPE ÖDER 8^IN EIN. 
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Roulette 13 


16K 


Ein Roulette mit 13 verschiedenen Zahlen. 
Einsatz, Guthaben und - eventuell - Gewinn 
werden ausgedruckt, Ihren Einsatz können 
Sie frei wählen. 


er 

REH 

- 13- 

10 

LET 

R = © 

20 

LET 

B=0 

30 

LET 

X=0 

33 

LET 

E = 1 

40 

LET 

V =G? 

41 

LET 

S = 14 

42 

LET 

U = 15 

43 

LET 

.N = 16 

44 

LET 

H = 17 

45 

LET 

T=0 

46 

LET 

0=0 

47 

LET 

G=0 

43 

FOR 

1=0 ‘ 

49 

PRIi 

NT RT 


50 

NE.XT I 

54 

LET 

G $ — * *1 

55 

LET 

H$ = "i 

57 

LET 

üi = ” 

60 

PRINT RT 

70 

FO.R 

1=2 


11 

" $ $ $ ^ $ S $ $ 4 # V $ 


7; 

TO 9 

75 PRINT RT I..7;H$; 
60 NEXT I 
100 PRINT RT 2.-S. 


GS/ 


iie 

PRINT 

hT 

3 / 6 / 

--^Bi SB»» 

an' 

120 

PRINT 

RT 

4».6; 

" mm 

13© 

PRINT 

RT 

5.* 6; 

-ms 

Bi^' 

140 

PRINT 

HT 

6^6; 

3SS MRM I 


150 
® SB' 


160 



PRINT RT 7^8; Mil^O^lOl 

PRINT RT 8.,8; ”B Bl Mtm 1 
PRINT RT 98 j '' 


172 PRINT RT 14 ^ 18; "5CHURRZ = '5 

.RT 15.. 16; ’‘iJEIS5 = ” “U.; RT 14 

7; "= ;RT 15^7; ”7-12 = ""H 


IX «I 

/ 

■1 “7*^ 


PRINT PT 16.0; ••- 


174. 
17 1 
INN *; 

175 

TKPP 

177 

17S 

1S0 
200 
210 
215 
220 
250 
260 
; iMg"; 
c: 7 0 
290 
300 
305 
310 
330 


PRINT hT 17., 0.; “H JN5RTZ : ; RT 

16.; **GUTMRBEN: ** ; RT 19., 10 .; “GEU 


PRINT RT 2I.0j “UilEUIE 
ITRL7” 

INPUT K 

PRINT hT 21.. 0 .. 

GOTO 1000 
FÜR 1=6 TO 23 
PRINT RT 2., I;”^ •* ; 

IF I=R THEN GOTO 1793 
NEXT I 

FÜR 1=3 TO 9 
PRINT RT 1,24-; •* 


:5TRR 


; hT I — 1, i=,'4- 


NEXT I 

FO.R 1=23 TO S STEP -1 
PRINT RT 9., I.;^' ; 

IF 1=5 THEN GOTO 1790 
NEXT I 

FÜR 1=6 TO 2 STEP -1 


34.0 

r* 

350 


PRINT RT 
NE.XT I 


1.3; 


**; R I 1 .X 6; 


360 

RETURN 


400 

LET R=0 


410 

LET 6=0 


415 

GOTO 500 


495 

LeT 0=0 


496 

LET T=i 


500 

LET Z = INT (RNO*i3:t +1 

502 

IP RNE>*10.>7 

RND CiZ:i=l 

=0 THSN LET 0=1 


503 

IF RND*10>4 

HND C(Z)>1 

= 0 T 

'HEN LET 0=1 


504 

IP 01 = 1 THEH 

GOTO 495 

505 

LET T=0 


510 

IP Z=i THEN 

LET Y=ll 

520 

IP Z=2 THEN 

LET X=9 

530 

IP Z=3 THEN 

LET X=20 

540 

IP Z=4 THEN 

LET Y=9 

550 

IP 2=5 THEN 

LET Y=2G 

560 

IF Z=6 THEN 

LET X=22 

570 

IP 2=7 THEN 

LET X=13 

580 

IP Z=S THEN 

LET X=il 

590 

IP Z=9 THEN 

LET Y=21 

600 

IP 2=18 THEN 

LET Y = IG¬ 

610 

IF 2=11 THEN 

LET Y = 13 

620 

IF 2=12 THEN 

LET X=16 

530 

IF Z=1S THEN 

LET X=.15 

6* 40 

GDSUB 200 


660 

LET R=X 


670 

LET B=Y 


672 

LET X=0 


674 

LET Y=8 


690 

GOSÜB 200 


900 

PRINT RT 19, 

17; G;” 

910 

LET K=K+6 


920 

PRINT RT 17. 

27; K;” •*.; 

930 

IP K < =0 THEN 

PRJ.NT RT : 


xH.ND 


GUTHR5EN UERBRBUCHT , 

1000 INPÜT U* 

1002 PRINT RT 2e.0;O$;HT 21.0;O$ 


1003 IF U$= 
1004- LET U$ 
1010 LET ü$ 
1015 PRINT 
1020 U$= 

1500 DX.H C( 
1510 LET Ci 
1515 LET E= 
1520 DIM Ci 
1550 FÜR 1= 
1535 LET R= 
154.0 IF CU£> 
Ü 1600 
1550 IF CÜD 
LET R=UhL ( 
1555 IF R>9 
1560 IF R>9 
1570 LET R= 
1560 IF R=0 
1585 IF C(R 
1590 LET C ( 
1595 LET E= 
1600 NEXT I 

1610 goto 2 

1790 LET G= 
1300 IF Z=1 


** I HnN GU 1 U 

=U$ 

= U3? + ‘' . 

RT 20,0;U$ 

** J HtiN Gu J O 2ii300 
i:* 

1) =0 

O 

17) 

1 TO LEN 
0 

E lU$(I))=2 


THEN GOT 


E (U$(X+ 1))<>27 THEN 
U* $ ( J. TO X + 1 ; j 
THEN LET 1 = 1+1 
THEN GOTO 1590 
URL (U$ (Ij j 
THEN LET R =13 
) >3 THEN GOTO 160 © 

R) =C iR) +1 
£+1 


00© 

0 

3 THEN 


1310 IF Z=1 THEN LET 
i=:0+C ( 14-) +20*0 (16) 

1320 IF Z=2 THEN LET 
20*0 ( 14-j +20*0 ( 16) 

1330 IF Z=3 THEN LET 
b:0*C(15) +20*Cil6) 

134-0 IF Z=4. THEN LET G = 120*Ci4) + 
20 *C ( 1^0 +20*0 (15) 


ET G=120*Cil3 

G=120*0i1)+ 
L? = 1 0 * U- ( ) + 

G = 120*C i 3) + 
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1650 

1660 

20 

16"70 
20 ^C 
1660 
20 
1690 

20TfC 

1900 
) ^20 
1910 
) -§-20 
1920 
i +20 
1950 
£300 
204-0 
£050 
2060 
£070 
2100 
2200 
2210 


IF Z=5 THEN 
i. 15 j +20*0 (16) 

IF Z=6 THEN 
( 14-;> +20*0 (16) 

IF Z=7 THEN 
( 14-) +20*0 (17) 

IF Z=8 THEN 
i15)+20*0{17) 

IF Z=9 THEN 
<14) +20*0 (17) 

IF Z=10 THEN LEr 
*0(15)+20*0(17) 

IF Z=ll THEN LET 
*C(15)+20*0(17) 

IF Z=12 THEN LET 
*0(14)+23*0(17) 

GOTO 900 

IF K-E*10<0 THEN 
LET K=K-10*E 
PRINT RT 17^S;E*10; 
PRINT RT 17^27;K;'‘ 
PRINT RT 19.. 17; 

GOTO 
5RUE 
GOTO 


LET 

G=1£0*C(5) 


LET 

G=120*0(6) 


LET 

G=120*0(7) 


LET 

G=120*C(S) 


LET 

G=120*0(9) 



G=120*0{10 
G=120*0(11 
G=120*C(12 


GOTO 1000 


400 

iS” 
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Stopper 1K 


Beim Eingeben längerer Programme fällt 
es immer störend auf: je länger das schon 
geschriebene Programm ist, desto länger 
dauert es, bis der ZX 81 die Zeile 
"schluckt".Jedesmal beim Einfügen einer 
neuen Zeile wird das komplette Listing 
durchgeblättert, was Wartezeiten verur¬ 
sacht. 

Dieses kurze Maschinencode-Programm 
schafft Abhilfe. 

Sie geben die drei Programmzeilen am An¬ 
fang Ihres Programmes ein. Besonders 
wichtig idt es, die REM-Zeile nicht zu 
verändern! Immer dann, wenn der Bildschirm 
mit Programmzeilen gefüllt ist, lassen Sie 
das Programm mit RUN ablaufen. 

Ergebnis: die zuletzt eingegebene Zeile 
wird im Display als oberste angezeigt. Die 
Eingabezeiten lassen sich beträchtlich 
verkürzen. Vergessen Sie zum Schluß nicht, 
die ersten drei Programmzeilen wieder zu 
löschen! 

1 REH E**RNDS7RHDTRN 

2 RRND USR 3.6514. 

3 STOP 


Hex-Dez-Wandler 1K 


Der "Hex-Dez-Wandler wandelt Heximal- 
zahlen in Dezimalzahlen um. 


5 LET R=:0 
iO DIM 

15 PRINT "HEX ZRHL?" 

20 INPÜT R$ 

25 PRINT R$ 

30 1_ET B=LEN 
■35 POR ?=1.T0_B_ 

*■^♦3 »—*»-. 1 i ~ L.* 1-'^ »II f—sS i JL J 

4.5 NEXT I 

Se PRTNT 

55 PRINT ”DEZIHihH.UERT = ”; 

50 POR 1=1 TO B 
55 LET C = fB-XJk 

75 POR Ü=SS TO ^3 

30 IP R(I)=Ü THEN LET R=R+D^(vJ 

55 NEXT O 

^0 NEXT X 

05 PRINT R 


HEX ZRHL? 

PPPP 

DEZJMRLUERT=65535 


READ, DATA 

und RESTORE 1K 

Beim ZX 81 sind die Befehle READ, DATA 
und RESTORE leider nicht vorgesehen. 

Dr. Kottmel hat es allerdings geschafft, 
diese Befehle mittels eines Programmes zu 
implementieren. 

Folgende Erläuterungen hat er seinem Pro¬ 
gramm bei gefügt: 

Das folgende Programm zeigt, wie mit Hilfe 
eines Strings das DATA-Statement simuliert 
werden kann. Die einzelnen Werte sind 
durch Kommas voneinander getrennt. Im 
simulierten DATA-Statement können auch 
mathematische Ausdrücke enthalten sein. 
Die Variable POINTER gibt an, an welcher 
Stelle zuletzt gelesen wurde. Die RESTORE- 
Funktion kann simuliert werden, in dem 
POINTER der Wert 1 . zugewiesen wird. An 
jener Stelle im Programm, an der mittels 
READ einer Variablen ein Wert zugewiesen 
werden soll, wird mittels GOSUB das Unter¬ 
programm READ angesprungen. Anschließend 
wird der Programmvariablen der Wert der 
Unterprogrammvariablen READ zugewiesen. 

Dr. Herbert Kottmel 


10 REM PROGRAMM D R T fl **** 
20 L.ET PO INTER =1 

30 I.ET D$ = "PI..2.34-59 ..3.,4.,5*PI^ 
4-5.. 123 ^9© ,.3.14-1592., 10 " 

4-0 FÜR 3 = 1 TO iS 

50 GOSUB 1000 

50 LET X=REflD 

T© PRINT TflB 10;X,^PI 
S© NE.XT U 

1000 REM UP R E fl D »*»»#*■#» 
101© LET H4i = "" 

102© IF POINTER=LEN D$ THEN STOP 

1030 IF D$ (POINTER) “ THEN LE 

T M$=H*■^D$ (POINTER) 

104-0 LET PO INTER =PO INTER+ 1 

1050 IF D*(POINTER) ^" THEN GO 

TO 1030 

1060 LET REflD=UflL H* 
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1080 RETURN 
1 

0.74-672316 
O . 954-92966 
1.2732395 
5 

14.32394-5 
39.152116 
31.194369 
0.99999979 
3.1830989 


9996 POKE M-T-l.R-Xf4T tR,-256J *-2-56 

9997 l_ET R=R-J-3 

9998 LET M =M-«-4-S-PEEK -i-256*PE 

EK CH+3} 

9999 UOTO 9992 


Nummemsort 1K 


Renumber 1K 


Das vorliegend Programm kann prinzipiell 
an jeder Stelle innerhalb eines vorhandenen 
Programms stehen. Es ist jedoch empfeh¬ 
lenswert das Programm an das umzunummerie¬ 
rende Programm anzuschließen, um eine ge¬ 
genseitige Beeinflussung der Programme zu 
verhindern. 


Achtung: 

Das RENUMBER-Programm darf nicht mittels 
des RENUMBER-Programms umnummeriert werden, 
da es nur die Zeilennummern, nicht jedoch 


die Sprungadressen verändert. 

Bedienungsanleitung: 

Das Programm ist mit "GOTO 9987" zu star¬ 
ten. Anschließend ist einzugeben: 

* ab welcher Zeilennummer ist umzunummerie¬ 
ren ( Variable V) 

* bis zu welcher Zeilennummer ist umzunume¬ 
rieren (Variable B) 

* erste zu erzeugende neue Zeilennummer 
(Variable A) 

* Schrittweite der zu erzeugenden Zeilen¬ 
nummern (Variable S) 

Um Speicherplatz zu sparen, können die 

Programmzeilen 9987 bis 9991 weggelassen 

werden. . u « i-i 

Ulrich Dovalil 


9937 XNPUT U 
9983 IMPUT B 
9939 IMPUT R 

9990 INPUT S 

9991 LET M=16509 

9992 UET l_=2SS*PEEK M-I-PEEK (M + 1) 

9993 IF L.<V TUEN GOTO 9998 

9994 IF L>B THEN STOP 

9995 POKE M/IHT lR..'2S&> 


Ein Utility-Programm, das Sie gut als 
Unterprogramm in Ihren eigenen Programmen 
verwenden können. 

Das Programm sortiert 20 Zahlen (oder 
mehr, wenn Sie das Programm entsprechend 
modifizieren) in absteigender Reihenfolge, 
also von den höchsten zur niedrigsten 
Zahl. 


5 

lO 

15 

20 

25 

3® 

35 

40 

45 

50 

SS 

&0 

es 

7© 

75 

SO 

S5 


DXM «KSO) 

FOR 1 = 1 TO 3© 
PPINT I 
I.NPÜT h(T) 


Cl-S 

FOR 1 = 10 TO 1 STEP 
FOR Ü=1 TO X 
Xp fi (<J 1 ? < fr l vJ} THEN 
LET 

i-ET R iU 'T X / — R / 

EET R =R 
NEXT U 
NEXT I 

FOR X=1 TO 2© 

PRINT R(I) 

NEXT I 


-1 

GOTO 


65 


3574- 

3333 

246 

09 

77 

66 

44 

22 

8 

8 

6 

6 

6 

5 

4 

4 

4 

3 

2 
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Musikpragramm 16K 


Ein Programm, das ohne jeden technischen 
Aufwand, mit Ausnahme eines Mittel- oder 
Kurzwellenradios, den Sinclair zum "Musi¬ 
kanten" macht. Jeder Computer "sendet" ja 
auf verschiedenen Frequenzen Signale aus, 
die durch die verschiedenen Arbeitstakte 
erzeugt werden. 

So kann man Programmläufe akustisch über¬ 
prüfen. Im "FAST"-Modus hat jede Schleife 
ihre eigene Kennung und so ist es leicht 
möglich zu kontrollieren, ob eine bestimmte 
Schleife überhaupt abgearbeitet wird, bzw. 
in welchem Programmteil der Sinclair gerade 
"spiel t". 

Im vorliegenden Programm verwendet man 
eine an und für sich nutzlose Schleife, die 
durch REMs verlängert ist. Durch Zufalls¬ 
zahlen springt er in der Schleife, so daß 
der Abstand zum NEXT sich verlängert oder 
verkürzt. 

Zum Abhören der "Musik" verwendet man ein 
kleines Mittelwellenradio. Etwa ab 560 m 
sind dann die Signale des Computers zu 
hören. Bessere Ergebnisse erzielt man noch 
mit einem Kurzwellenempfänger, den man 
ebenso wie das Mittelwellenradio in un¬ 
mittelbare Nähe des Gerätes bringt. Auf dem 
Kurzwellenempfänger findet man einzelne 
Frequenzen in den kürzeren Bändern, auf 
denen "Radio Sinclair" seine Hitparade aus¬ 
strahl t. 

Ausbaumöglichkeiten: 

Von Zeile 30 bis Zeile 900 hat man Platz, 
um andere Noten- und Dauereingaben zu 
machen. In den Zeilen 1000 bis 9000 kann 
man versuchen, eine Tonleiter herzustellen, 
indem man mehr REMs einfügt oder die REMs 
durch alphanumerische Zeichen erweitert. 

Wolfgang Zwangsleitner 

5 P FtS'T 

10 DXH Nf:i000J 

20 DTM D ( 10001* 

30 FOR 1 = 1 Tö *1000 

4.0 LET N<X.>=lINT CRHD-^3) -§-1) *10 

00 

S0 I_ET D iX) = V X»NT CRND *S J * 1} * 10 

00 HEIXT r 

900 FOR r = l TO 1-000 
910 FOR Y=i TO DiJ) 

920 GOTO NiXy 
1000 REH 
2000 REM 
3000 REM 
4.000 REH 
5000 REH 
6000 REM 
TG00 REM 
600© REM 
9030 MEXT V 
9G10 NEXT X 


AlphabeKsches 
Sortierpragramm 16K 


Mit diesem Programm ist es auf dem ZX 
81 möglich, alphanumerische Zeichenketten 
Ul so z.B. Namen) alphabetisch zu sortie¬ 
ren. 

Nach Eingabe der Anzahl der zu sortierenden 
Worte und der Länge des längsten Wortes 
schaltet der ZX 81 in den FAST-Mode und 
beginnt mit dem Sortieren. 

Wenn Sie einen ZX-Printer haben, können 
Sier die Effizienz des Programmes erhöhen, 
indem Sie Zeile 260 von PRINT auf LPRINT 
ändern. 


1 REH RL-PHRBETISCHES 
SORTlERPROGRRHM 
1© PRINT •‘R^4ZRHL. DER " 

15 PRINT "ZU SORTIERENDEN UORT 

E?" 

20 INPUT W 

3© PRINT "HRXINRuE LhENGE EINE 

•5 UORTE5?" 

4.3 INPUT L. 

50 DIN 

e-0 FOR = l TO U 
70 INPUT 
80 NEXT fi 
85 FfiST 

20 EET R=© 

100 LET B=R 

110 LET C=R 

120 LET C=C*1 

150 XP C=U THE^4 GOTO 23-5 

140 LET 

150 LET B=H*1 

153 X!~ THEN LET .R=ß 

1T0 LET 

100 XP B<=U THEN GOTO 163 

1’9© IP r: = H THEN GOTO 123 

200 LET = f.M'i 

210 LET 

220 LET 

233 GOTO 1-20 

235 SLOU 

24^^ P L* R M = 1 T C* L* 

250 5«CROLL 

260 PR INT R $ i: R) 

27© NEXT R 


Graß-/ 

Kleinschreibung 16K 


Mit diesem Programm ist es möglich, 
auf dem Sinclair ZX 80/81-Drucker bis zu 
128 verschiedene selbstprogrammierte 
Buchstaben, Zeichen oder Symbole auszuge¬ 
ben. 
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Programmierung 


Da zwei Zeichensätze benutzt werden, ist 
auch Groß-/Kleinschreibung möglich. 
Progranm-Erläuterungen: 

9000-9010 Reservierung eines freien 

Bereiches am Ende des 

9600-9630 16K-SpeiChers; dorthin werden 

ein abgewandeltes Druckerprogramm aus dem 
ROM sowie 2 Zeichengeneratoren (C$ und D$) 
geschrieben. 

9020-9090 Texteingabe und Wahl des Zei¬ 

chenkettengenerators (Adresse 30720 oder 
31232); Textlänge max. 32 Zeichen 
9240-9490 Routinen zur Programmierung 

bzw. Änderung der Zeichengeneratoren 
9555-9556 SAVE-Unterprogramm 

9990-9999 Ausgabe des eingegebenen 


'5^o^/Klei_n-Schv''eibtm3 
mll" dem ZX-Dr'ucker*: 


3001 


PEM * CHPRRCTER GENERRTOR * 
REM yON 

ULRICH STRUDER 
IM GROSSEN FELD 1 
04.00 GOET7 INGEN 
3004- POKE 163SS^1£0 
5005 REM RRMTOP=3©72© 

9005 GÜSÜB 9S©0 
•500S POKE 3iS©0,S.3 
3010 POKE 3iSS7,20i 
•50S0 DIM 

3030 PRINT "TEXT EINGEBEN;" 

3031 INPUT T$ 

3035 IF LEN T$>3£ THEN LET T$=TS|^ 
(1 TO 3£.> 

•304.© PRINT T$ 

•3045 LET 1=31232 
•3-0S3 POR 5 = 1 TO 32 

3052 IF CODE T$>i27 THEN LET 1=3 
072© 


Textes 

Nach dem Laden startet das Programm von 
selbst. Der Aufbau der Zeichengeneratoren 
gleicht dem des ROM-Generators (ab Adr. 
7680). Alle Zeichen sind in einer 8x8- 
Matrix aufgebaut, zum Beispiel “S": 


00111100 


60 

934.© 

01000010 

= 

66 

9^5© 

01000000 

= 

64 


00111100 

= 

60 

996© 

997© 

00000010 

= 

2 

995=© 

01000010 

= 

66 

999© 

94 . 4 .© 

00111100 

= 

60 

94 . 4.5 

00000000 

= 

0 

64-7 


3054 IF CODE TS>127 THEN LET TS? 
;lj =CHRS (CODE TS-128) 

9055 FOR Z=1 TO ö 

•507© LET RSV5,Z)=CMRS PEEK <I+CO 
OE TS^r8-4-Z-2) 

5075 NEXT Z 

308© LET T$=TS(2 TO ) 

3084 LET 1=31232 

•5085 IF TS = "“ THEN GOTO 999© 

•5-03© NEXT 5 

INPUT TS 

IF TS = ‘"‘ THEN GOTO 95©© 

FOR l=CODE TS*S TO CODE TS* 

INPUT 3 

LET CS(I)=CHRS 5 
NEXT I 
GOTO 924© 

2NPÜT TS 

Ir TS = "‘' THEN GOTO 95©© 

FOR I=CODE TSsS TO CODE TS^ 


Die Zahlen sind im Zeichengenerator einfach 
hintereinandergereiht (S=60,66,...60,0), 
wobei für jedes Zeichen 8 Byte verbraucht 
werden. Die Reihenfolge der Zeichen 
entspricht ihrem Sinclair-Code. So stehen 
die Zahlen für "S" (Code 56) in der 448. 
(56x8) bis 455. Adresse des Zeichengenera¬ 
tors. Die Programmierung der Zeichengenera¬ 
toren wird auf folgende Weise vorgenommen: 
DIM C$ (bzw. 0$) (512); GOTO 9240 (bzw. 
9440); Zeichen, das programmiert werden 
soll (zum Beispiel "S"); 1. Zahl des Zei¬ 

chens (bei "S" 60); NEWLINE; 2.Zahl; NEW- 
LINE;...letzte Zahl; NEWLINE; nächstes Zei¬ 
chen oder nur NEWLINE (=Ende der Program¬ 
mierung) . 

Soll dieses Programm als Druckroutine in 
einem Hauptprogranm (zum Beispiel Textedi¬ 
tor) verwendet werden, müssen die Zeilen 
9030 und 9031 gelöscht und Zeile 9999 in 
9999 RETURN geändert werden. Nachdem T$ im 
Hauptprogramn definiert ist, kann es mit 
GOSUB 9000 ausgedruckt werden. 


•345© XNPUT 5 

347© LET D$fI)=CHR^ 5 

348© NEXT 1 

•3430 GOTO 944© 

•3555 5RUE “Cg" 

3536 GOTO 9©©© 

35©© FOR 1=3 TO 511 

36©5 IF I<113 THEN POKE 31744*1.. 
•PEEK (2161 + 1) 

■36-13 POKE 31232 + 1, CODE CSd + l) 

9615 POKE 3©7£© + l,CODE DS(I + 1‘) 

582© NEXT I 

383© RETURN 

3320 FOR 5 = 1 TO ;32 

3'331 FOR Z = 1 TO 8 

9332 POKE 32255+Z+S+(5-1),CODE R 
5 LS, Z) 

■3393 NEXT Z 

33-34 NEXT 5 

S'39.5 FOR 1=0 TÜ 31 

3995 POKE 16444 + 1.. X 

■3397 NEXT I 

•3S-98 LET I=U-5R 31744 

9333 GOTO 902© 

Beispiel -für- einen Zeichensa-fa; 

abedef -ähi JKlmnop';sr s-t:uvoxv[H 
R3CDEFGHI3KLML40P0RSTUUWXYZ 
■1234567S9Ü 

SÖÜ D (.><:>?! l-JpQß : . X“ 
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Wissenschaft 


ZX Taschenrechner 1K 


Dieses Programm ist für Sinclair-Compu- 
ter mit 8K-R0M geschrieben. Es läuft auch 
mit nur IK-Ram, jedoch sollten dann die 
PRINT-Befehle in den Zeilen 80 und 200 auf 
ein Minimum gekürzt oder ganz gestrichen 
werden. 

Dieses Programm erlaubt es, mit dem ZX- 
Computer wie mit einem Taschenrechner zu 
arbeiten. Die Eingabe der Operationen 
erfolgt nur durch Tippen einer Taste. Es 
braucht weder in den F-Modus gegangen 
werden, noch muß die SHIFT-Taste gedrückt 
werden. Die Tastaturbelegung ist 
weitestgehend gleich geblieben, jedoch 
liegt nun die Potenzierungsfunktion auf 
der Y-Taste. 

Hat man sich einmal vertippt, so wird 
durch einfaches Drücken der NEW LINE-Taste 
die letzte Eingabe gelöscht. . 

Beim Rechnen können auch zwei Speicher 
benutzt werden. Der erste Speicher N, ist 
ein Festwertspeicher mit der Zahl 
57.295779513. Der zweite Speicher P, kann 
vom Benutzer selbst bestimmt werden. 

Drückt man während der Eingabe die Taste 
C, so kann man den Inhalt des Speichers P 
ändern. Der Speicher P kann durch Druck 
der Taste P auch in der Rechnung benutzt 
werden. Der Speicher N findet seine 
Funktion in der Umrechnung von 
Sinuswerten. SIN(8) gibt den Sinus in RAD 
aus, SIN(8/N) gibt den Sinus in DEG. 

Soll ein Ergebnis ausgegeben werden, so 
muß nur auf = gedrückt werden. 

Wurde eine nicht definierte Operation 
eingegeben, so wird der ZX das Programm 
unterbrechen. Es muß dann wieder mit GOTO 
40 gestartet werden. Konnte der ZX ein 
Ergebnis ausgeben, so wird er Sie nun 
auffordern, die NEW LINE-Taste zu drücken, 
um eine neue Rechnung eingeben zu können. 
Wird das Programm mit N/L nun wieder ge¬ 
startet, so geht der Speicher P nicht 

verloren. u- n u 

Joachim Glaubrecht 


10 LET , 0ia34*E&7S9PlSN =fCRT 

N TfiN 3GN RBS SQR t-+=PJN)PSZN X 

NT RCS TU/COS EXP " 

S0 LET N=1S0/PI 
30 LET P=1 
4.0 LET B$ = **** 

5© PRUSE 4.E4. 

SO LET 

70 IF THEN GOTO 110 


SG PRT^4T PT 21., 0* “SPEJCHER P = 7 


OO INPUT P 
lOO GOTO IGÖ 

110 IF C$<>CHR$ llS THEN GOTO 1 


CODE C$>63 


40 

120 LET TO LEN 

130 GOTO 160 
14.0 IF CODE C$<27 OR 
THEN GOTO 50 

15© LET (CODE C$-26) 

ISO CLS 
17© PRINT B* 

'i f=>.c\ Tp C$<>‘*L** THEN GOTO S0 
190 PRINT ÜRL TO 1_EN B$-l> 

20© PRINT RT 21 .. O; "PUER NEUE RE 
CHNUNG N.^'L" 


210 PRUSE 4.E4. 

aao C.L.S 

230 GOTO 4.0 


Geordnete Paare 
und Ikipel 16K 


Dieses Programm druckt Ihnen entweder 
auf dem Bildschirm oder - besser - auf dem 
ZX-Printer die geordneten Paare oder Tri¬ 
pel von zwei bzw. drei eingegebenen Mengen 
aus. Mathematisch ausgedrückt also MxM und 
MxMxM. 

Die Elemente werden pro Menge in einer 
Zeile eingegeben und zwar direkt ohne 
Zwischenraum. Fünf Elemente würden dann so 
aussehen: "ABCDl". 

Elemente können mit Buchstaben oder Zahlen 
bezeichnet werden, jedes Element mit nur 
einem Buchstaben oder nur einer Zahl. 

Jede Menge kann höchstens aus 300 Elemen¬ 
ten bestehen, über diese Einschränkung 
sollten Sie sich nicht den Kopf zer¬ 
brechen: 

Die Tripel von 3 Mengen mit je 300 Elemen¬ 
ten würden einen Printerausdruck von mehr 
als 200 Kilometern Länge ergeben (also 
ungefähr die Strecke München-Würzburg). 

Das Paar-Beispiel wurde mit zwei Mengen zu 
je 5 Elementen erstellt, das Tripel-Bei¬ 
spiel mit 3 Mengen zu je 10 Elementen. 

S CLS 

7 GOSUB 2000 
10 LET X=2 
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Wissenschcrft 


fttI)=CODE M 


R=2 THEN LET B(I)=CODE M 
R=3 THEN L.ET C(I)=CODE M 


20 IP 3=1 THEN LPRXNT TRB 3; "R 
RRRE ODER TRIPEL CPyT) 

22 IF S=1 THEN LPPINT 

23 IF S=1 THEN LPRXNT 

25 IF 3=0 THEN PRINT TRB 3:“PR 

RRE ODER TRIPEL l‘PyT3 T“ 

30 IF XNKEV$ = ‘‘“ THEN GOTO 30 
4-0 IF INKEY$ = “T“ THEN LET X=3 
5© IF NOT C INKEY!^ = “P“ OR INKEY 
*=:-T“Ji THEN GOTO 3© 

55 LET R$ = INKEV‘« 

S0 DIM RC3©0i 
70 DIH BC3©0> 
ao IF X=3 THEN DIM C (300) 

90 CLS 

100 PRINT RT 3j.3; “MENGE “ 

105 PRINT RT 3^11;“7“ 

110 POR R=1 TO X 
120 PRINT RT 3^9;R 
130 INPUT M$ 

14.0 FOR 1 = 1 TO 300 
150 IF R=i THEN LET 
$ (I TO ) 

150 IF 
$ (I TO ) 

170 IF 
$(I TO ) 

180 IF 
N LET F=I-1 
190 IF M$(I 
N LET G=I~1 
200 IF M$(X 
N LET H=I-1 
210 IF M$(X 
30 
220 
230 
235 
24.0 
250 
280 
270 
R (K) ; 

275 
R (K) 

280 
290 
300 
510 
520 
530 
54^0 
R (K) ; 


(I TO ) =• 


TO ) =' 


TO ) =■ 
TO ) =• 


RND R = 1 THE 
RND R=2 THE 
RND R=3 THE 
THEN GOTO 2 


X 

R 


NEXT 
NEXT 
CLS 

IF R* = *'T“ THEN 
FOR K = 1 TO F 
FOR Ü = 1 TO G 
IF S=0 THEN PRINT 
; CHR$ B (U) ; •• ) .. •• 
IF S=1 THEN LPRINT 
; CHP$ B (ü) : “) .. 

NEXT U 
NEXT K 
GOTO 1000 
FOR K=1 TO F 
FOR U=1 TO G 
FOR L=1 TO H 
IF S=© THEN PRINT 


GOTO 510 


CHR$ 

CHR$f 


“ (CHR¥ 
CHR$ C(L) 


“ CHR$ 
CHR$ C CL 


21 , 0 ; 


; ••) , 

54.5 IF S = 1 THEN LPRINT 
R (K);“y“; chr$ b (U); 

) ■ ** ) *’ I 

550'NEXT L 
560 NEXT U 
570 NEXT K 

1000 IF 3=0 THEN PRINT RT 
FERTIG. NOCHEINMRL7“ 

1003 IF 3=1 THEN LPRINT 
1004. IF 3 = 1 THEN LPRINT 
1005 IF 3=1 THEN LPRINT “FERTIG. 
NOCHEINMRL?“ 

1010 IF INKFv'$ = ““ THEN GOTO 1010 
1020 IF INKEY$=“U“ THEN GOTO 1 
1030 IF NOT INKEY$=“N“ THEN GOTO 
1010 

104.0 CLS 

PRINT 


1050 


RT 6^0; 


1060 STOP 

2000 PRINT “RUF BILDSCHIRM ODER 
RUF DRUCKER?“ 

2010 IF INKE'/$ = ““ THEN GOTO 201© 
2020 IF XNKEY$=“D“ THEN LET 3=1 


203© IF INKEY$=“B“ THEN LET S=© 
204-0 IF NOT (INKE'ir$ = “D“ OR INKEY 
$=“B“) THEN GOTO 2010 
2050 RETURN 


PRRRE ODER TRIPEL CP/T)7 


(Rylyl^) .. iRx 1/M) ^ 
CR/l/P) .. (R/l/O) ^ 
(R/l/T).(R/l/U). 
(R/2/N) . (R/2/0) 
<R/2/R),(R/2/S), 
(R/3/L)^(R,3/M), 
lR/3/P) ^ lR/3/O) ^ 
CR/3/T)^ (R/3/U), 
(R/4/N)^ (R/4/0), 
(R/4./R) CR/4./S) j. 

(R/S/L) .. (R/5/M) ^ 
tR/5/P).(R/5/0). 
(R/5/T) , (R/5/U) *. 
(R/6/N) .. (R/6/0) i 
CR/S/R).(R/6/3)^ 
(R/7/L).CR/7/M). 
(R/7/P),CR/7/0), 
(R/7/T),(R/7,U). 
CR/8/N) ^ CRx'3/O) , 
(R/S/R) .. (R/3/3) , 
CR/9/L) ^ (R/9/M) 
(R/9/P} ^ CR/3/0) ^ 
(R/9/T) ^ CR/9/U) ^ 
(R/0/N)^(R/0/O)^ 
(R/0/R) ^ (R/0/S) .. 
(B/l/L) .. (B/l/M) ^ 
(B/l/P).(B/l/O). 
(B/l/T) , (B/l/ü) 
(B/2/N)^(B/2/0). 
(B/2/R> ^ (B/2/3> ^ 
(Bx^3/L) . (Bx^3/M> ^ 
(B/3/P) ^ CB/3/0) ^ 
(B/3/T) .• (B/3/U) , 
{B/4-/M) ^ (B/4./0) , 
(B/4/R> CB/4./3> ^ 

lB/5/L) ^ lB/5/H) ^ 
(B/5/P) ^ (B/5/0) , 
(B/5/T) , (B/5/U) .. 
(B/6/N)^(B/6/0). 
(B/6/R) .. (B/6/S) ^ 
(B/7/L)^(B/7/M). 
(3/7/P) . (B/7/0) . 
(B/7/T) . (B/7/U) 
(B7S/N) , (B/S/O) .. 
(B/S/R),(B/S/3), 
(B/9/L) ^ (B/9/M) .. 
(B/9/P) ^ (B/9/0) ^ 
CB/9/T) j. (B/9/U) .. 
(B/0/N) ^ (B/0/O) ^ 
CB/0/R) , (B/0/S) , 
(C/l/L) .. (C/l/M) , 
(C/l/P) ^ (C/l/O) .. 
(C/l/T) > CC/l/U) ^ 
(C/2/N) .. (C/2/0) .. 
(C/2/R) . (C/2/S) ^ 
CC/3/L)^(C/3/M)^ 
<C/3/P),(C/3/0)^ 
•C/3/T)^(C/3/U)^ 
(C/4/N) , (C/4/0) , 
(C/4/R) > (C/4./S) 
(C/5/L) , (C/5/H) ^ 
CC/5/P),(C/5/0), 
(C/5/T) j. (C/5/U) .. 
(C/6/N> , (C/6/0) , 
(C/6/R) j. (C/6/S) , 
(C/7/L) , (C/7/M) ^ 
(C/7/P) .. CC/7/0) ^ 
(C/7/T) ^ (C/7/U) .. 
CC/8/N)>(C/S/O)^ 
(C/8/R)^(C/8/S)^ 


(R/l/N).(R/l/O). 
CR/l/R) ^ (R/l/S) 
CR/2/L) .. (R/2/M) . 
(R/2/P) .. (R/2/0) 
(ft/2/T) , (R/2/U) j. 
(R/3/N) (R/3/0) . 

lR/3/R) .. (R/3/S) *. 
(R/4/L),(R/4/M)• 
(R/4-/P> .. (R/4/0) , 
(R/4./T) . (R/4/U) ^ 
(R/5/N).(R/5/0), 
(R/5/R) . (R/5/S) 
(R/6/L) *. (R/6/M) ^ 
(R/S/P) ; CR/6/0) .. 
(R/6/T) .. (R/6/U) 
(R/7/N) . (R/7/0) . 
(R/7/R) rR/7/S) 

(R/S/L).CR/6/M)^ 
<R/8/P).lR/8/O)^ 
(R/3/T> .(R/8/U). 
(R/9/N3 ^ (R/9/0) 
(R/Q/R) ^ (R/9/S) 
(R/0/L) .. (R/0/M) • 
(R/O/P).CR/0/O)^ 
(R/G/T).(R/0/U). 
(B/l/N) .. (B/l/O) , 
(B/l/R) .. (B/1/S3 
(B/2/L)^(B/2/M) ^ 
(B/2/P).(B/2/0)• 
(B/2/T} . (B/2/U) 
(B/3/N).(B/3/0). 
(B/3/R) .. (B/3/S) 
(B/4./L) . (B/4./M) , 
fB/4-/P) . (B/4./0) ^ 
(B/4./T) . (B/4/U) .. 
CB/S/N) .. (B/5/0) 
(B/S/R) . (B/5/S) .. 
(B/6/L) .. (B/6/M) .. 
(B/6/P),(B/6/0), 
{B/6/T) .. (B/6/U) 
(B/7/N).(B/7/0). 
(B/7/R) .. (B/7/S) 
CB/S/L) . (B/8/M) 
(B/8/P) . (B/S/Q) 
(B/8/T) ^ fB/8/U) , 
(B/9/N} . (B/9/0) j. 
(B/9/R) .. (B/9/S) .. 
(B/B/L) .. (B/0/M) .. 
(B/0/P) .. (B/0/O3 .. 
(B/0/T) ^ (B/0/U) .. 
(C/l/N) ^ (C/l/O) 
(C/l/R).(C/l/S) ^ 
(C/2/L) .. (C/2/M) .. 
(C/2/P) .. (C/2/0) .. 
(C/2/T).(C/2/U)^ 
(C/3/N) . (C/3/0) 
(C/3/R) , (C/3/S) .. 
(C/4./L) , (C/4./M) ^ 
(C/4./P) , (C/4./0) , 
(C/4/T) ^ (C/4/U) .. 
(C/S/N) .. (C/5/0) .. 
(C/5/R)^(C/5/S) ^ 
(C/6/L) ^ (C/6/M) ,, 
(C/6/P) . (C/S/O) ^ 
(C/6/T) (C/6/U) j. 

(C/7/N) ^ (C/7/0) ^ 
(C/7/R) . (C/7/S) .. 
(C/8/L) .. (C/8/M) .. 
(C/8/P)^(C/8/0)^ 
(C/8/T)^(C/8/U) ^ 
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l'Cy9/L) , 
(C/9/P)^ 
tc.'S.'Ty , 
(C/0/N)^ 

vc/0yR)^ 

(D/l/L) .. 
(Dyl/P) .. 
CD/l/T)^ 
(D./'2/N) , 
(D/a/R)^ 
(D/3/L-) , 
(D/Sy'P) j. 
(D/3/T), 
(D/4*yN) j. 
(D/4./R) ^ 
<D/5/'L) . 
(D,^5/P) , 
CD/5/T), 
CDy6/N)^ 
(D/6/R) j. 
(D.'yyL) j, 
(D/7/P). 
(D/7-/T) 
(D/8/N)^ 
CD./8/R) ^ 
(D/9/L.) ^ 
(D/9/P) .. 
(OyQtyTy ^ 
CD/0.-'N> ^ 
(D/0yR)^ 
(E/l/L)^ 
(E/lyP) .. 
(E/lyTH ^ 
(EyayN)^ 
(E/2/R), 
iEy3yi.) 
(Ey3yP) .. 
(Ey3yT), 
CEy4.yN) j. 
<Ey4.yR) > 
(E/SyL.) .. 
(EySyP) .. 
CEySyT)^ 
CEySyN), 
(EyeyR) .. 
CEy7yL-> , 
(Ey7yP)> 
CEy7yT) j. 
tEySyN), 
CEySyR)^ 
CEy9yE) j. 
KEygyP) 
(Ey9yT), 
<Ey©yN>, 
(Ey0yR)^ 
CPylyL), 
vpylyP), 
(FylyT)^ 
CPySyNi ^ 
(pyayR) 
(py3yL), 
iFy3yP), 
CFy3yT)^ 
(Py-tyN) j. 
(py4.yR) , 
(pySyE), 
(pysyp)^ 
CpySyT), 
(pyßyN)^ 
vpyeyR)^ 
(Fy7yL), 
cpy7yp) .. 
KFy7yT)^ 
CPySyN) 
(PySyR), 
(py9yE> ^ 
<Fy9yP) .. 
KPy9yT) .. 


(Cy9yM) , 
(Cy9yO), 
(Cy9yU) ^ 
ccy0yO) .. 
vcy0y3) , 
CDylyM) , 
CDylyOi .. 
(DylyUJ ^ 
(Dyayo) , 
(DyayS) ^ 
(Dy3yM). 
(Dy3yO), 
(Dy3yU), 
<Dy4-yO) ^ 
(Dy4^yS) . 
CDySyM)^ 
(DySyO) , 
iDySyUJ 
(DyeyO) ^ 
CDyeyS) , 
(Dy7yM> ^ 
(Dy7yO) . 
{Dy7yu)^ 
(DySyOJ . 
(DySyS)i 
CDy9yM). 
(DyQyQ) 
CDyQyUJ 
(Dy©yO> j. 
(Dy0yS) j. 
(EylyM) . 
(EylyOX 
(EyiyU). 
(Eyayo) *. 
CEyayS) ]. 
(Ey3yM). 
(Ey3yO)‘ 
(Ey3yu>, 
CEy4.yO) ^ 
CEy4.yS) , 
(Ey5yM> ^ 
(EySyQ)^ 
(EySyU)^ 
fEySyO) , 
(EyeyS) . 
CEy7yM). 
CEy7yO) 
tEy7yU) ^ 
CEySyO)^ 
(EySyS) ^ 
(Ey9yH) , 
CEyQyO). 
(Ey9yü)^ 
(Ey©yO)^ 
(Ey0yS5 . 
(pylyM) .. 
rpylyo) ^ 
(pylyu). 
(PySyO) , 
CPyayS) > 
(py3yM)^ 
(PySyö), 
(py3yu> j. 
(Py4.yO) , 
(Fy4>yS) ^ 
{PySyMJ , 
(pySyO) . 
(pysyu) .. 
(pysyoj . 
i‘pyöy3> > 
(Fy7yM)^ 
CPy7yO) .. 
CPy7yU)^ 
(pySyO)^ 
(pySyS) ^ 
^py9yM> , 
i*Fy9yO) 
CPy9yU) .. 


(Cy9yN), 
i'Cy9yR) ^ 
rcy0yE) > 
(Cy0yP)^ 
(Cy0yTy , 
CQylyN), 
^DyiyR) ^ 
(DyayEi .. 
fDyayp^ , 
(DyayT) , 
(Dy3yN) . 
iDySyR) ’• 
(Dy4.yE) ; 
CDy4.yP) 
(Dy4.yT> . 
fDySyN); 
(DySyR) , 
CDySyE) ^ 
(DySyP) . 
(Dy&yT) *. 
fDy7yN) *. 
(Dy7yR)\ 
tDySyE) ^ 
(DySyP)^ 
(DySyT) ^ 
fDygyN)^ 
(DyQyR) .. 
(Dy0yE5 ^ 
CDy0yP) 
fDyeyT> ^ 
CEylyN) • 
(EylyR) *, 
(EyayL). 
(EyayP>; 
(EyayT) 
tEy3yN). 
(Ey3yR) ^ 
(Ey-l-yE) , 
(Ey4-yP) ^ 
CEy4.yT) , 
(EySyN). 
(EySyR)^ 
(EyeyL) ^ 
CEyeyP)^ 
(EyeyT) . 
CEy7yN) 
(Ey7yR)^ 
(EySyE) ^ 
(EyByP), 
fEya.- T? . 
CEy9yN), 
iEy9yR> ^ 
CEy0yL). 
<Ey©yP> .. 
(Ey0yT). 
(pylyN). 
VPylyR)^ 
(pyayE) ^ 
CPyayP) .. 
CPyayT) > 
(PySyN) , 
(Fy3yR)^ 
fFy4-yE) ^ 
CFy4.yP) ^ 
(Fy4.yT) .. 
fPySyN)^ 
(PySyR) ^ 
(pyöyL) ^ 
(pyeyp> ^ 
iPySyT) .. 
{Fy7yN]i , 
(Fy7yR) .. 
(pyöyL.) ^ 
(py8yP) .. 
fpySyT) . 
{py9yN> ^ 
tFy9yR) .. 
CFy©yL) j. 


(Cy9yO) 
(Cygys) 
(CyQyM). 
(Cy0yO) .. 
fCy0yU)^ 
CDylyQ) .. 
CDylyS) ^ 
(DyayM) ^ 
(DyayO) , 
(DyayU) 
(Dy3yO) . 
(Dy3yS); 
(Dy4.yM) , 
tDy4.yO) j» 
(Dy4.yU) , 
(DySyO)^ 
(DySyS) ^ 
CDySyM)^ 
(QySyO) . 
(DySyU) 
tDy7yO) 
(Dy7yS) ^ 
(DySyM) , 
(Dy8yO) 
(Dy8yU) 
(Dy9yO), 
(Dy9yS); 
CDy0yM)^ 
CDy0yO) 
(Dy0yU)^ 
(EylyO) . 
CEylyS) .. 
(EyayM) ^ 
(EyayO), 
(EyayU). 
(EySyQ)^ 
(EySyS). 
(Ey4.yH) 
(Ey4.yO) , 
(Ey-tyU) ^ 
(EySyQ)^ 
(EySyS)^ 
(EyeyM). 
(EyßyO) ^ 
(EySyU) 
(Ey7yO> , 
(Ey7yS} . 
(EysyM)^ 
(Eysyo)^ 
(Ey8yU)^ 
(Ey9yO)^ 
(EyQyS) • 
CEy0yM) 
(EyoyO) .. 
(Ey0yU) , 
(PylyQ), 
(pylyS) . 
(pyayM)^ 
(pyayQ)> 
(pyayu)^ 
(pysyo), 
(PySyS)^ 
(py4.yM) ^ 
(py4.yO) ^ 
(py-iyU) 
CPySyO)^ 
(PySyS) .. 
(pyeyM) .. 
(pyeyQ) .. 
(Pyeyu) ^ 
(Py7yO), 
(Fy7yS) 
(pySyM) ^ 
(pySyO) .. 
(Py8yU). 
fpy9yO> ^ 
(pyQyS) .. 
(Fy0yM) 


(py0yN)^ 
{Fy0yR), 
(GyiyE)^ 
(GylyP)^ 
(GyiyT) ^ 
(GyayN) .. 
(GyayR) ^ 
(GySyL) ^ 
<Gy3yP)^ 
(GySyT) .. 
(Gy-tyN) . 
(Gy4.yR) ^ 
(Gysyl.) ^ 
CQySyP) .. 
(GySyT)^ 
(GyeyN) .. 
CGyeyR) , 
(Gy7y|_) ^ 
(Gy7yP) .. 
(Gy7yT) .. 
(Gy8yN), 
(GySyR)^ 
(Gy9yL) .. 
(Gy9yP)^ 
(Gy9yT)^ 
iGy0yN) ^ 
(Gy0yR)^ 
(HylyL)^ 
(HylyP) .. 
(HylyT), 
(HyayN) ^ 
(HyayR)^ 
(Hy3yE) ji 
(HySyP), 
(Hy3yT)^ 
(Hy4.yN) .. 
<Hy4.yR) ^ 
(HySyL) j. 
rHySyP) , 
(HySyT) .. 
(HySyN)^ 
(Hy6yR), 
(Hy7yL), 
(Hy7yP)> 
(Hy7yT)^ 
CHysyN) ^ 
(HysyR) ^ 
(HyQyL) j. 
(Hy9yP), 
(Hy9yT) .. 
(Hy0yN)^ 
(Hy0yR) 

(jylyE) , 
cjylyP)^ 
clylyT)^ 
(lyayN) .. 
(lyayR) .. 
(jySyE) , 
(ly3yp) .. 
(lySyT), 
(ly4yN) > 
(Xy4.yR) ^ 
(jySyE) ^ 
(XySyP), 
(JySyT) .. 
(lyeyN) j. 
(lyeyR) ^ 
(ly7yE) .. 
(Iy7yp)^ 
\Xy7yT) , 
(lySyN)^ 
CXySyR) .. 
(Xy9yL) .. 
(ly9yP)> 
(XygyT)^ 
<Xy0yN) ^ 
(ly0yR)^ 
(jyxyE) ^ 


(Fy0yO) 
(Fy0yS) 
(GylyM) 
(GyxyO) 
(Gylyu) 
(GyayO) 
(Gyays) 
(G y 3 yM) 
(GySyO) 
(GySyU) 
(Gy4.yO) 
(Gy4.y3) 
(GysyM) 
(GySyO) 
(GySyU) 
(GyeyQ) 
CGyeyS) 
(Gy7yli) 
(Gy7yO) 
(Gy7yU) 
(GySyO) 
(GySyS) 
(GygyM) 
(GySyO) 
(GySyU) 
(Gy0yO) 
(Gy0y3) 
(HylyM) 
(HylyQ) 
(HylyU) 
(HyayO) 
(HyayS) 
(HySyM) 
(Hy3yO) 
(HySyU) 
(Hy4.yO) 
(Hy<tyS) 
(HySyM) 
(HySyO) 
(Hysyü) 
(HyßyO) 
(HySyS) 
(Hy7yM) 
CHy7yO> 
(Hy7yU) 
(HySyO) 
CHysyS) 
(HySyM) 
(HySyO) 
(HysyU) 
(Hy©yO) 
(Hy0yS) 
(lyiyM) 

(xyxyo) 
(lylyu) 
(XyayO) 
(xyayS) 
(XySyM) 
(lySyO) 
(Iy3yU) 
(Xy^yO) 
(Xy4.yS) 
(lySyM) 
(Xysyo) 
(lySyU) 
(lyeyO) 
(Xyey3) 
(ly7yM) 
(ly7yO) 
(Iy7yU) 
(XySyO) 
(lySyS) 
(lySyM) 
(XySyO) 
(XygyU) 
(ly0yO) 
(Xy0y3) 
(UylyM) 


(Fy0yP) ^ 
(Py0yT)^ 
(GyxyN), 
(GylyR) .. 
(GyayE) , 
(GyayP) .. 
(GyayT) .. 
(Gy3yN)^ 
(Gy3yR)^ 
(Gy4.yL) . 
(Gy4.yP) j. 
(Gy^yT) .. 
(GySyN) j. 
(GySyR) .. 
(GyßyE) 
(Gy6yP) .. 
(GySyT) , 
(Gy7yN). 
(Gy7yR)^ 
(Gy8yL). 
(GySyP), 
(GySyT) .. 
(GySyN)^ 
(GySyR). 
(Gy©yE) j. 
(Gy0yP) .. 
(Gy0yT) .. 
(HyXyN)^ 
(HyXyR) .. 
(HyayE) .. 
(HyayP) ^ 
(HyayT)^ 
(Hy3yN). 
(Hy3yR) , 
(Hy4^yL) ^ 
(Hy4^yP) ^ 
(Hy4^yT) ^ 
(HySyN). 
(HySyR)^ 
(HySyl.) .. 
(HyeyP) . 
(Hy&yT) 
fMy7yN), 
(Hy7yR)^ 
(HysyE) ^ 
(HySyP)^ 
(HySyT) 
(HySyN)^ 
(HySyR)^ 
(Hy0yl«) ^ 
(Hy0yP)> 
(Hy0yT)^ 
(XyXyN), 
(lylyR)^ 
(XyayE) ^ 
(lyayp). 
(lyayT), 
(lySyN)^ 
(lySyR)^ 
(Xy4-yE) j. 
(Xy4.yP) .. 
(Xy4.yT) ^ 
(XySyN)^ 
(XySyR)^ 
(XySyL) . 
(XySyP). 
(lySyT) 
(Xy7yN)^ 
(Iy7yR)^ 
(XySyE)- 
(XySyP) 
(lySyT) .. 
(lySyN), 
(lySyR) j. 
fly0yE) ^ 
(ly0yP). 
(Xy©yT) .. 
(vJylyN) .. 


(py0yO), 
(Fy0yU)^ 
(GyXyO) .. 
(GylyS) .. 
(GyayM) > 
(GyayO) 
(GyayU) 
(GySyO), 
(GySyS) . 
(Gy4.yM) ^ 
(Gy-tyO) . 
(Gy4.yU) 
(GySyO) ^ 
(GySyS) 
(GyßyM) .. 
(GyeyQ) 
(GySyU) 
(Gy7yO) . 
(Gy7yS)• 
(GySyM) . 
(GySyO); 
(GySyU). 
(GySyO) 
(GySyS) .. 
(Gy0yM) 
(Gy0yO) .. 
(Gy0yU). 
(HylyO) .. 
(HyXyS) . 
(HyayM) . 
(HyayQ) 
(HyayU)^ 
(HysyO) 
(Hy3yS>, 
(Hy4.yM) . 
(Hy-tyO) 
(Hy4.yU) .. 
(HysyO) 
(HySyS) . 
(HySyM) .. 
(HysyO) .. 
(HySyU) ,, 
(Hy7yO)^ 
(Hy7yS) .. 
(HySyM) .. 
(HysyO) 
(HySyU) .. 
(HysyO) 
(HySyS)^ 
(Hy0yM), 
(Hy0yO)^ 
(HyOyU)^ 
(lyxyo)^ 
(XyxyS) . 
(lyayM) 
(lyayo) .. 
(lyayu) 
(lysyO), 
(lySyS) . 
(ly4.yM) 
(Xy4.yQ) .. 
(ly4.yU) a 
(lySyO) . 
(lySyS)i 
(lySyM). 
(lySyQ) .. 
(lyeyu) ^ 
(ly7yO) . 
(Xy7ys) j. 
(lySyM) . 
(Iy8yO) 
(lySyU)\ 
(lySyQ), 
(lySyS) . 
(ly0yM) 
(Iy0yo) * 
(ly0yU> 
(UyXyQ) .. 
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Wissenschclft 


CÜ/lx'T) .. 
i^ysyhn , 
(Ü/2/R} 
(Jy3.^L) . 

.. 

Cü.'*3/T5 . 
CU.-4./N) ; 
£ü-.-^4..'R3 , 
Cu3y5-/L-) .. 

fu;/s/T> , 
(uü/e/N) > 
CÜX'G-^R) .. 
(Ü/7/L) .. 
CÜ/7/P‘J ^ 

(vJ/S/N) . 

i:ü/s.'R) ^ 
Cü/S/L) .. 

CvJ/9/T) .. 
i^Jy&yH^ .. 
fc.iyo^'R) , 


i^yxyuy . 

(wi.-'S/O) ; 
Cü/2.'S} ^ 
Cüy"3x'M) ^ 
VÜ/3/Q) .. 

tUr'4^.'oy > 

.. 

CiJ.'S/0> , 
(cJx'S/'U) , 
tuy^yO) j. 

( o /’S J ji 

CÜ/7/M)^ 
Cü/7/Oi .. 

U) , 
C\J/-‘SrO) ^ 
Cü/S/S) .. 
tü/Q/M)^ 
CÜ/9,'0) , 
(Uv^*9/^U) ^ 
Cvi/©rO) j. 
(ü>'0/*o) , 


i^JyXyRy 

(3.^2.- P.1 
Cü^‘2./T) 
CÜ/-3/N) 
IÜ/3/R) 
iüy4~y\^^ 
(üy4ryP^ 
(iJ/4. .^T) 
CÜ/5/N) 
f Ü/5.'R3 
fuix'S/L.) 
(vJ>"S.-'P) 
(U/^öx'T) 
(Ü/7-/N) 
iüyTyRy 
tüySyL.} 
(^ysypy 
(ü/^S/T) 
CÜ-/9/N) 
(Ü/9-/R) 
(U^0 /L-5 
CU/^©/Pi 
(Ü/0-/T) 


.. t^JylySy 
^ tü/2/M> 
^ (ü.'2./0) 
j. (Ü/2/U) 

.. (u /3 yo ) 
.. CÜ/3/S) 

^ (Uy4.yQy 

, CvJ./4./U> 

, (UyeyM) 
j. cuyayoy 
. (ü^6/U) 
.. (ü/7,'0) 
, (0/7/50 
,(O/S/M) 
, (0/6/0) 
^(0/6/U> 
.. (0/9/0) 
^ (0/9/S) 
. (O/0/M) 
], (0/0/0) 
^(O/0/U) 


•> 


.« 


FERTIG. NOCHEINMRL.'? 


PRRRE ODER TRIPEL CP/T)T 


(R/1) . (R/2) .. (R/3) , (R/4.) .. (R/5) .. (E* 
/D ji (B/2) . (B/3) ^ (B/4.) .. (B/5) .. (C/X 
3 , (C/2) , (C/3) ^ (C/4.) .. (C/5) ^ (D/1) , 
(D/2) . (D/3) ^ (D/4.) .. CD/5) .. (E/X) .. (E 
/2) , (E/3) .. (E/4-) (E/5) .. 

PERTIG. NOCHEINMRL7 
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Sinclair Programme 



Grafik 


Bleistift 1K 


Dieses Programm erlaubt Ihnen, mit Hilfe 
der Cursortasten einfache Grafiken auf den 
Bildschirm zu zeichnen. 


5 LET X=© 

10 LET Y=0 
15 PLOT X.,Y 

S0 IF INKEY $ = PND X<53 THEN 

LET X=X-H 

25 IP INKEY$ = '‘5" RND X>0 THEN 

LET X=:X-1 

30 IF XNKEY$ = '*y RND Y<33 THJEN 

LET Y=:Y^1 

35 IF INKEY$ = '*6“ RND Y>0 THEN 

LET Y=:Y-1 

40 GOTO 15 



Säulengrafik 16K 

Die 37 Programmzeilen wurden für den ZX 
81 in BASIC geschrieben. Als erstes wird 
die Anzahl der zu vergleichenden Zahlen 
eingegeben. Entsprechend dieser einge¬ 
gebenen Zahl werden dann zwei Zeichenket¬ 
tenfelder eingerichtet: Ein Feld für die 
Bezeichnung des jeweiligen Säulengrafen 
und ein weiteres für die Höhe des Säulen¬ 
grafen. 

Sollen zehn oder weniger Zahlen ver¬ 
glichen werden, wird der Abstand der Säu¬ 
lengrafen zueinander vergrößert und die 
zwei Endziffern der Vergleichszahlen neben 
den Säulenbezeichnungen dargestellt. 


Als nächstes müssen dann die Bezeichnung 
des Säulengrafen und danach der zugehörige 
Zahlenwert eingegeben werden (2 INPUT- 
Modi) und zwar die Daten für den höchsten 
Zahlenwert zuerst und für den niedrigsten 
als zweites, entsprechend den Abfragen des 
Computers. 

Bei dem gewählten Beispiel des Ver¬ 
gleichs der europäischen Benzinpreise also 
als erstes I für Italien und danach der 
höchste Preis mit 1.77, dann D für 
Deutschland und 1.20 für den niedrigsten 
Preis. 

Aus der Differenz zwischen höchstem und 
niedrigstem Zahlenwert wird nämlich in der 
Programmfolge das Vergleichsfenster und 
der Maßstab bestimmt. 

Die Differenz der Säulengrafen werden in 
einem Fenster dargestellt und die Basis¬ 
werte unterdrückt, was im allgemeinen zu 
einer Ausschnttvergrößerung führt (Lupen- 

prinzip). n c ^ 

R. Freudenau 


4.e>4.5 REH ”19" GHfiFJSCHE DRR5TEL.L 
UNG IN UERGLEICHSSREULEN COPYR. 

O IPL. . - ING . R . FREUDENfiU RH TRUXHOF 
le , 4.6DORTMUND50 - SINCURIR 2.X S1 
4-64-7 REM DIE DRRTEELUNG ERFOLGT 
IN EINEM FENSTER UÜN 40 BILDPU.NK 
TEN 

4649 REM EURO-BENZINPREISE RPR.1 
96S.I 1.77;D 1.20;DK 1,67;FR 1.6 
4; R 1.55;S 1.53;B 1.52;CH 1.49;6 
S 1.47;NL 1.47 

4650 PRINT RT O,O;"UIEUIELE ZRHL 
EN SOLLEN DRRGESTELLT WERDEN?" 
4660 INPUT Z 

4670 IF 2>29 THEN PRINT RT 0,0;" 
ZRHL NEU EINGEBEN.MEHR RLS 29 NI 
C-HT DRR5TELLBRR" 

4660 IF Z>29 THEN GOTO 4660 
4690 DIM L$<Z,2) 

4700 DIM P$<Z,4.i> 

4705 REM EINGRBE DER BIS ZUEI5TE 
LLIGEN BEZEICHNUNG UND DER ZUGEH 
OERIGEN ZRHL BIS 9-99 
4710 FOR N=1 TO 2 

4720 IF N-1 THEN PRINT RT 0,0;"B 
EZEICHNUNG DER HOECHSTEN ZRHL? 

tl 

4730 IF N=2 THEN PRINT RT 0,0;”5 
EZEICHNUNG DER KLEINSTEN ZRHL7" 
4740 PRINT RT O . 0; "BEZEICHNUG7** 
4750 INPÜT L$(Ni 

4760 PRINT RT 0,0;“UELC:HE ZRHL7 

kt 

4770 INPUT P$(N) 

4760 IF N=Z THEN PRINT RT 0,0;“ 

t c 

4790 NE.XT N 

4795 REM SCHRITTWEITE RUF X-RCHS 
E 

4600 IF Z>i5 THEN LET U=1 
46*10 XF Z •; =1S LET U-2 

4620 IP Z<=i0 THEN LET y=:3 
4825 REM PRRRMETER DES FENSTERS 
4830 LET R=URL P*(2,l TO 3.^ 
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484.0 LET D = INT (URL. P* ( 1 > -R+ 1) 1 

0 

4-84.5 REM MRSSTRB 
4-850 LET H==D/4- 

4855 REM BEZEICHNUNG DER X-RCHSE 
UND SREULENDRRSTELLUNG DRRUEBER 
4860 FOR N=1 TO Z 
4870 LET T=^4i^•W•M 
4880 IF Z>15 THEN LET T=T+1 
4390 PRINT RT 90^T;L*(N^1);RT 21 
..T; L* (N^2) 

4900 IF Z<=10 THEN PRINT RT 20^T 
-l.;P*(N.. 3);RT 21^T-1;P$(N^4) 

4910 FOR TO (URL P« (N) -R) *1© 

0yH-0.5 

4920 LET X=2^N*U 

493© IF Z>15 THEN LET X=X+2 

4940 PLOT X-^3,Q+4 

4950 NEXT O 

4960 NEXT N 

4965 REM BEZEICHNUNG DER Y-RCHSE 

4970 LET I=R#100-J-9^D 

4980 FOR 6=1 TU 19 6TEP 2 

4990 PRINT RT 5^0; I 

5000 LET I=I-D 

5010 NEXT S 

5015 REM LOESCHE DIM L$ UND P$^D 
RMIT DIE EINGEGEBENEN URRIRBLEN 
ERHRLTEN BLEIBE^4 


92© 



MH Cosinus und 
Sinus zum Erfolg 16K 

Ein gelungenes Programm mit dem ZX- 
Printer. 

Wichtig: 

Achten Sie bitte in Programmzeile 1 genau 
auf die verwendeten Symbole. Nach dem 


ersten Durchlauf des Programms werden an 
Stelle der Punkte andere Zeichen stehen. 
Für die Berechnung der Muster benötigt der 
ZX 81 bis zu zwei Stunden Zeit, ehe der 
Ausdruck erfolgt! Doch das Ergebnis ist 
diese Wartezeit wert. 

Wenn man Zeile 12 ändert in "12 GOTO 9988" 
und mit GOTO 9605 das Programm startet, 
kann man bereits gerechnete Muster erneut 
ausdrucken lassen ohne lange Wartezeit. 

Reinhard Färber 


1 REM L®RND.UgRND^ .TRN .. 
a IF PECK 16388-t-ass «^PEEK Xe38 
9 ■♦•3174.4. THEN GOTO 5 

3 PRINT "MEMORY NOT RESERUED" 
4. STOP 

5 FOR 1=0 TO lia 

6 POKE 3174.4. + I^PEEK (ai61-S-I> 

7 NEXT 1 

8 POKE 31800,63 
O POKE 31857,301 

10 POKE 16517,95 

11 POKE 16534., 79 
la DIM R$(33,356) 

a© LET F = iaO/' (RBS (R-f-B) -►flßS (3 
»B) ) 

30 FOR L=-3 TO 3 STEP U 

4.0 FOR 1=0 TO a^Pl-^-PI/D STEP P 


I/D 

50 LET X = iaS+F« ( (fi-l-B) «COS (D- 
L«B*COS ( <R+B) ,'B«I) ) 

60 LET Y=ia8+F«((fi+B)«SIN (D- 
L«B«SIN ( (fi-l-B) 7B«I) ) 

70 GOSUB 9980 
©0 NEXT I 
9© NEXT L 
100 GOTO 9988 

9555 SRUE "HflGB" 

9556 SLOU 

9557 PRINT "HOCHRUFLOESENDE GRRP 
MIK“,, 

9563 SCROLL 

9564 PRINT ■■BITTE EINGEBE.N; " 

9565 SCROLL 

9570 PRINT “R = *; 

9575 INPUT R 

9578 PRINT R 

9579 SC.ROLL 


■=i6ee • ö = ; 

9585 INPUT B 

9588 PRINT B 

9589 SCROLL 

9590 PRINT "D = “; 

9595 INPUT D 

9598 PRINT D 

9599 SCROLL 

9600 PRINT ■•U = 

9601 INPUT U 
9603 PRINT U 
960.3 SCROLL 

9605 LPRINT ”R= S= "B; ’* 

r\— »» . 1.^ . ** U — •* * Iwi 

9609 POKE 16389^,124 

9610 FRST 

9611 GOTO 1 

9980 REM PLOTS (X,Y) INTO R$ 

9981 IF X<0 OR X>255 OR Y<0 OR Y 
>255 THEN RETURN 

99S2 LET C = l-fINT (X/S) 

0983 LET R=256-INT Y 

9984 POKE 16526,CODE R$(C,R> 

9985 POKE 16527,2**(8*C-INT X-1) 
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9986 LET R*CC^R)=CHR* (USR 16514^ 
) 

9967 RETURN 

9988 REM PRINTS «$ 8 LINES RT R 
TIME 

9989 FOR 1-0 TO 24.6 STEP 6 

9990 FOR U=1 TO 32 

9991 FOR K=1 TO 8 

9992 POKE 32255+K+S*(ü-1),CODE fi 
$ (Ü^K+I) 

9993 NEXT K 
9994. NEXT U 

9995 FOR H=0 TO 31 

9996 POKE 1-64.4.4.+H,H 

9997 NEXT M 

9998 LET H=USR 3174-4. 

9999 NEXT I 


R= -3 B= 1 D= 24-0 U= 0.3 



Teilchen unter dem Einfluß periodischer 
Bewegungen. Er entdeckte, daß sich Körper 
unter dem Einfluß dieser Bewegungen in 
verschiedenen Kurven bewegen. 

Die beiden folgenden Programme zeigen, wie 
derartige Kurven aussehen. 

Beim ersten Programm können Sie selbst die 
Schrittweite und die Ausgangszahlen bestim¬ 
men, beim zweiten Programm erledigt das ein 
Zufal1szahlengenerator. 

Wenn Sie mit dem Speicherplatz knapp wer¬ 
den, löschen Sie die REM-Zeilen und ver¬ 
kleinern Sie die Zahl 30 in Zeile 100. 
Sollten Sie mehr Speicherplatz haben, 
können Sie das Programm gut erweitern. 

Auch wenn Sie der wissenschaftliche Hinter¬ 
grund nicht interessiert, können Sie mit 
diesem Programm interessante Muster erzeu¬ 
gen. 


STEP 300 Y 9 X 4- 



Lissafous- 

Figuren 1K 16K 

Jules Antoin Lissajous, ein franzö¬ 
sischer Physiker der von 1822 bis 1880 
lebte, machte eine Studie der Bewegung von 


10 REH LI5SRUOU.S 5KETCHPRD 
£0 REM SY FRfiZER MELTON 
30 PRINT "INPUT -STEPS" 

4-0 1^4PL^■ 5 

5© PRINT S;" INPUT Y FREOUENCY 

S5 INPUT Y 

'70 PRINT V.; INPUT X FREQUENCV 

&0 INPUT X 
SS CL.5 

ST PRINT ''STEP Y " j V; " 

X " ■ X 

90 POR H=0 T0 2$-PI STEP 
100 PUOT -J-30,90*COS 

110 »NEX { R 

115 INPUT üf 

117 IP THEN GQPY 

190 CU5 

130 RUN 


Eine Publikation von CHIP 


63 







ü w H- h-- p II © uj CO 'j tn i'u H 
© © '"j in © + © © : 0 © © © a 


Grafik 



STEP 5©e Y 4- X 12 


“« » " » “ » •«» 
HW 

H 


m. 


KB n 


KP N 


m 


H iH 

» »^.11 


R R 


te * * tt 

r“ % 


Mfift « f» 

^ W H 

W « «IW 

RHifll ^ 

Bii 89 '"“® W 

..«IW ” ^ W 


IffRK M 0 IK H lA 


STEP 500 Y E X 4 



REH R UT O-E15SRüöü 5 
REH HEETON,>^HRRTNEL.E 
LET 5:=r500 

LET y =:INT CRND^S0) -^1 
L.ET X = XNT ilRND^SÖ) -f-1 
PRINT “STEP “ :S; “ V “ : V ; - 
; X__ ^ ^ 

j-UH H=:^i lU R^PI STEP P^PT/S 
£~*L.0T ±N ii-i-^Y} ^-30 ^ P;£5 ^COS 

X; +R© 

NEXT R 
INPUT U* 

IF THEN COPV 

Ci-5 

RUN 


Hochauflösende 16K 
Gnrfik 


Wegen der Länge der Zeile 10 sollte im 
FAST-Mode gearbeitet werden. Zunächst wird 
das Programm PROG I eingegeben und gestar¬ 
tet. Nach Beendigung kann es zeilenweise 
bis auf den l.REM-Befehl gelöscht werden. 
Der Inhalt der Zeilenkette in Zeile 10 ist 
der besseren Übersicht wegen noch einmal 
separat aufgeführt. 

Im REM-Befehl in Zeile 1 sind nun die zwei 
Routinen abgelegt: 

ab 16540: gibt eine Grafikzeile (256 
mögliche Punkte) an den Drucker aus. 
ab 16514: setzt einen Punkt im Drucker¬ 
puffer bei der in 16442 angegebenen 
Position. 

Der Druckerpuffer wird gelöscht bei BREAK, 
STOP, am Programmende und im Direktmodus 
(also bei nicht-Programmbetrieb). 

Um also zum Beispiel an der l.,100. und 
200. Stelle einen Punkt zu setzen, geht man 
wie folgt vor: 

10 POKE 16442,1 
20 RAND USR 16514 
30 POKE 16442,100 
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Kreisquad 


1K 


40 RAND USR 16514 
50 POKE 16442,200 
60 RAND USR 16514 
70 RAND USR 16540 

Ein weiters Beispiel ist PROG II. Wird in 
einem Programm der Zufallsgenerator verwen¬ 
det, sollte der Unterprogrammaufruf nicht 
mit RAND geschehen. Es kann zum Beispiel 
die Form IF USR xxxxx THEN verwendet wer- 

Frank Ändert 


i'PROG 

i REM (66 BELIEBIGE ZEICHEMJX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxx 

3 REM FRfiNK ÄNDERT 

4. REM OSTPREUS3Eh4STR. 14- 

S REM S670 HOF 

S REM 

10 LET ft$ = *'213fi4.O7EE6©'74'704.RPE 
D6FCB16172323S56FRF371F10FDB677C 
3ai3C4.0RFO620D3FBDBFB873SFBC.5060 
3DBFBlF3OFBfiFCB161FF6©2D.3FE10F12 
3C110ER3EO4.D3FBC9 •• 

2© FOR R®1 TO LEN R$-‘2 
3© POKE 16513-J-R^ CODE R$t2»R)-2 
S^i6*fCODE fl$(2»R-1)-28J 
4-0 NEXT R 


Sie geben die Seitenlangen A und B eines 
Rechteckes ein. Das Rechteck wird in die 
Schirmmitte gezeichnet, anschließend darum 
ein Kreis gezogen. Der Durchmesser des 
Umkreises wird angezeigt. 

1 rem ’-KREISQURD“ 

10 PRINT "EIN; R., B“ 

20 INPLrr R 
33 I^4PUT B 

.35 FOR X=31-<A.'ai TO 31+fR.--S> 
37 PLOT X .. SS + S .-'S > 

39 PLOT X , SS - ..'-S) 

4-0 NEXT- X 

-äi-s FOR x=aa-i8r.'a> to 2 . 2 +cs."S) 

4 ^ 4 . PLOT 31-tR.-'S) ,.X 
4-6 PLOT 31+(R.'S} .. X 
4S NtXT XI 

FF LET C=SQR tfi**2+S.S*2ii 
§S FOR N=.5 TO 12 STEP .5 
70 PLOT 31+(C.'23 *COS a4^-6*PI.>^ 
22 + ( C -r'a J +S I^4 (^4 .r-6 *P X ) 

72 NEXT N 
S© UNPLOT ©., 4 
9© PRINT "RRD=";C 


fpROG II) 

■SOfilLET P = 16442 
4© LET U=16514 

50 FOR R=0 TO 2*PI STEP ,05 
60 POKE P., 31+31+SIf-4 R 
7© RRND USR U 
©0 POKE P^QS+Sl+COS R 
9© RAND USR U 
100 POKE P,. 159-31^^SI^^ R 
110 RRND USR U 
12© POKE P..223-3i*COS R 
1-3Q RRND USR U 
140 RRND USR 1654© 

15© NEXT R 

PRODUZIERT FOLGENDE DEMO-GRAPHIK 








X. 


./ 


Digital 


1K 


Nach Eingabe einer Zahl zwischen 0 und 9 
schreibt der Computer die Zahl in Form 
einer Sieben-Segment-Anzeige auf den Bild¬ 
schirm. 

Läßt sich auch gut als Unterprogramm für 
verschiedene Spiele (zum Beispiel für Aus¬ 
gabe des Punktestandes) verwenden. 

Martin Bodicky 
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PRXNT PT 5,10; "EXMGPBE** 



/ 







z 

XNPUT Z 








\ 



B 

CE'o 



V 








6 

XF Z=i© THEN STOP 
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10 

FOR X=:i© TO 20 
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XF Z < > 1 PHD Z < > 4. PND Z < 

>7 
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HEN PL.DT X , 10 



£-1 

3P 

4.0 

TE 
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07 
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XF Z < > 1 RND Z < > 4. THEN P 
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PF 

ED 

6F 

CB 

IS 

17 

23 

23 

X m 20 




35 

SF 

PF 

37 

IF 

lÖ 

FD 

BS 

15 

NEXT X 



77 

CS 

21 

3C 

4.0 

PF 

06 

2© 

2© 

FOR V = 1 TO 10 



D3 

FB 

DB 

FB 

87 

30 

FB 

C5 

21 

XF Z=2 OR Z=:6 OR Z=3 GR 

Z 

= 0 

0S 

03 

DB 

FB 

IF 

30 

FB 

PF 

THEN 

PLOT 1©,Y 



C5 

ie 

IF 

F6 

02 

D3 

FB 

10 

22 

IF Z<>2 THBrl PLOT 20 .Y 



Fi 

23 

CI 

1© 

EP 

3E 

04- 

D3 

23 

XF Z < > 1 RND Z < > 2 PHD Z < 

> 3 

R 

F3 

CS 







ND Z < 

>7 THEN PLOT lO/r^l© 
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24 IF Z<>5 fiHD Zoe THEN PL.OT 
20.Y+10 

25 HEXT V 
30 GOTO i 


Kreisel 1K 


Das Programm zieht nacheinander zwei Kreise 
und läßt diesen Doppelkreis scheinbar ro¬ 
tieren. Um die notwendige Durchführungsge¬ 
schwindigkeit zu erreichen, werden beim 
Zeichnen des Kreises die jeweiligen X und 
Y-Koordinaten gespeichert und danach in 
einer Schleife abgerufen. godicky 


1 

REH 

“KREISEL“ 


2 

D XM 

R ^ 12) 


3 

DXH 

B »: 12 } 


20 

FOR 

M=i TO 12 


30 

LET 

X=32+ 

KNy6+PI5 

32 

LET 

Y=22+10+5IM 

»: M/6+PI) 

34 

LET 

R iN.y =X 


36 

LET 

B iN f =V 



PLOT 

X.. Y 


100 

HEXT 

N 


105 

FOR 

N=,5 TO 11. ^ 

er 

106 

PLOT 

32 +10 +CQ-^ 

CM, 6+PX> ,22 + 

10+3 

IN (N 

.•^6+PI) 

110 

NEXT 

N 


120 

FOR 

N=1 TG 12 



1150 U^4P'l«0 I H ( N i tr t N 5 

135 UNPLOT Ri^4) .BCH) 
140 PLOT hCN) 

150 N5.XT N 
IS© GOTO 120 


Schnecke 1K 


Zeichnet am Bildschirm eine Schnecke. 

Martin Bodicky 

1 REM *• SCHMECKE“ 

1© LET Y=0 

30 FOR N = 1 TO 32 STEP .5 


40 PLOT 32 4-^COS 
15 , 22 4- (Nit3.xl35 J^4 (Ny^e^PI? 

50 HEXT M 
50 FOR H=32 TO 40 
Z0 PLOT 
SO HEXT N 
20 FOR M=i5 TO 42 
100 PLOT N,ie 
110 HEXT N 
120 FOR f'4 = 15 Tö 23 
130 PLOT N.10+Y 
140 LET Y=S^+4.^'15 
150 NEXT M 
160 FOR M=1 TO 12 

iZ0 PLOT 43-i-3^COS iN. BitPXy .13+3 
+ 3IM CNy6^tPX> 

130 NEXT N 
190 FOR N=16 TO 20 
200 PLOT 29+H.N 
210 NEXT N 


Spirale 1K 


Durch scheinbar wahllos hingeworfene Punkte 
entsteht nach und nach eine Spirale. 

Martin Bodicky 

1 REM “SPIRRLE“ 

5 LET X=0 

30 LET M= <RMD+6005 .^'10 

31 LET M= <RND*600 5 ->10 

40 PLOT 32 + ( H +3 / 1© +COS C M /5 
X5 ,22+ CN+3..-105 -^SXM (M.--6fePX.> 

45 LET X=X+i 

47 IF X=300 THEM STOP 

50 GOTO 30 


Hen 1K 


Zeichnet ein Herz auf den Bildschirm und 
läßt sich vielleicht als Liebeserklärung 
verwenden.... 

Martin Bodicky 

5 P.EH "HERZ" 

10 FOR N=13 TO lO STEP .5 
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2© PLOT 22+S*f_:uS tt-l/6 I • . SO+S 
^SI^4 <N/e.4tPI) 

30 NEXT W 

40 FOR N=ll TO i“ STEP .5 

S© PLOT 38+S*uOS <N/e*PIJ .30+8 
+SIN CN.'S+PI) 

8© NEXT N 
T© PLOT 30^33 
80 LET X=32 

90 LET U=2S 

100 FOR 7' = !© TD 24 STEP 2 

110 LET X=X-2 

12© LET y=U+2 

130 PLOT X.Y 

140 PLOT u;.Y 

150 NEXT Y 

18© PRINT RT T.12; "SIRGITY • 


Bild 



1 REM ••NETZ" 

1© FOR N=l© TO E3 STEP £ 

15 PL.OT 

16 PLOT N.v4^3- 
S© NEXT N 

25 FOR N=5 TO 36 STEP S 

26 PLOT 31.. N 
30 NEXT N 

68 FOR N=.5 TO 6© STEP .5 
70 PLOT 31+(N./^3.5> «^COS (N/6^PI 
) :.22+1LN/3..5) +SXN (N/S^PX) 

72 NEXT N 
1 REM "SPXNNE" 

20 FOR N=1 TO 12 

30 PLOT 35+8+COS CNx6+PXf .20+5 
+SXN (N/6+PX> 

^5 PLOT ;^2+5+LO;i CN/^t>+PI) ^2© + 4 
»SIN <N.^6*PI) 

PLOT 14+3+C05 ^.N-^S+PI? .20+2 

+ SIN (N.^6*PI) 

40 NEXT N 
50 FOR N=18 TO 20 
80 PLOT N.N-44 
84 PLOT 45-N ^ M-44 
70 PLOT 45-N.. N-3 
74 PLOT N.N-3 
©0 NEXT N 
9© FOR N=:© TO 15 

93 PLOT 22.N 

94 PLOT 22 >4+24 
96 NEXT N 


Zwei um 90* verschobene, ständig wachsende 
Ellipsen erzeugen nach und nach einen 
Kreis, was ein interessantes Bild ergibt. 

Martin Bodicky 

1 REM "BILD" 

30 FOR C=1 TO 20 

63 FOR N=-5 TO 12 STEP .5 

70 PLOT 31+20+C0S 4N..-'6*PI) .22 + 

C*SIN (N.-'6+PI) 

71 PLOT 31+C-»COS ?N.'S*Prj .22+2 

e+siN tN^e+pi) 

72 MEXT N 
90 NEXT C 


Neix 1K 

Zeichnet am Bildschirm ein Spinnennetz. 

Das Programm 
Spinne 

das auch in IK funktioniert, sorgt für den 
Ausdruck der Spinne. Mit mehr Speicher läßt 
sich beides kombinieren. Vielleicht fällt 
Ihnen auch eine Spielidee dazu ein? 

Martin Bodicky 


Eine Publikation von CHIP 


67 




Hobby 


Zinsenberechung 1K 


Das "Anlage"-Programm errechnet Ihren 
Gewinn zum Beispiel für einen Prämienspar¬ 
vertrag. 

Sie geben dazu die monatliche Sparrate, 
die Laufzeit und den Zinssatz ein. Das 
Programm errechnet dann Ihre Gesamtein¬ 
lage, den Betrag, den Sie nach der Lauf¬ 
zeit von Ihrem Konto abheben können und 
den Zinsengewinn. 

Sie können mit dem Programm verschiedene 
Sparformen durchtesten. 


Nt-ÖGE 


5 l_ET 

10 PRINT "gl 
15 PRINT 

20 P.PINT "MONATLICHE ZAHLUNG? 
25 INPUT e 
30 PRINT B 
35 PRINT "URHRE?" 

4-0 XNPLrr C 
4-5 PRINT C 
50 PRINT "ZINSEN?" 

55 INPUT D 
60 PRINT D 
65 
70 
75 


PRINT 
PRINT 
INPUT 
PRINT 

LET B=B?H2 
LET E=B*C 
FOR 1=1 TO C 
©0 LET R= (P+B.'i -s ( i+O.'lOO) 

85 NEXT I __ . „ _ .. 

S0 PRINT "GE6.^Hrli_uNli: ' ; t, IN 
iqhPFN“ 

QS' LET R = INT (O*1003t ^10© 

100 PRINT "GES-RNLRGE: ■*; R 
105 PRINT "GEWINN:ft-E 




MONRTl-ICHE ZRHL.UWG'? 

S©0 

JRHRE? 

3 

ZINSEN"? 

5 

GES . ZRHLUNG : iSß00 IN 3 iJRHREN 
GES.RNLRGE:19860.75 
GEUINN:186©.75 


Telefonregisler 16K 


Bezüglich Bedienungskomfort ist dieses 
Telefonregisterprogramm bestimmt eines der 
besten, die für den Sinclair ZX 81 ge¬ 
schrieben wurden. Das Programm gibt Ihnen 
alle nötigen Informationen. Sie haben die 
Wahl zwischen Eingeben, Korrigieren, Ab¬ 


speichern und Suchen (wahlweise nach Num¬ 
mern oder Namen). Die Suchfunktion wurde 
so angelegt, daß auch Teile des Namens 
genügen, um die entsprechende Nummer zu 
finden. 

Im Menu gibt Ihnen der Computer jeweils 
bekannt, wieviele Eingaben noch möglich 
sind, die Anzahl der Eingaben soll 320 
nicht überschreiten. Bei mehr als 50 Ein¬ 
gaben schaltet sich das Programm während 
des Suchens in den FAST-Modus, um die 
schon kurze Suchzeit weiter zu verkürzen. 
Um eine einwandfreie Funktion des Program¬ 
mes zu gewährleisten, ist es wichtig, daß 
sämtliche REM-Zeilen richtig eingegeben 
werden! 


5 REM (C) BY MARTIN 6066,1982 
10 REM 
15 REM 
20 REM 
25 REM ■< < 

30 IF PEEK 16583 THEN GOTO 4® 
35 GOTO 1000 
4-0 LET 0=320 
4-5 DIM R$(D,20) 

50 DIM B$(D,10) 

55 LET X*=" "+fi*(1)+B$tl) 

60 G06UB 130 
65 POKE 16583,0 

70 LET M$="BITTE KUERZEN 6IE I 
HRE EINGABE" 

75 LET P=280 
80 DIM 6$(20} 

85 GOTO 1 

100 PRINT AT 0,4-; "E I N G A B E 

105 PRINT ,,"EINGABE NR:" 

110 RETURN 
115 G06UB 1O0 
120 GOTO 14.0 
130 FOR E=1 TO D 

135 IF PEEK 16583 THEN RETURN 
14.0 PRINT AT 2,ll;E 

14.5 PRINT AT 4-,O; "NAME (MAX. 20 

P06.) 7" ; X * 

150 INPUT N* 

155 IF N*="" THEN GOTO 1 

160 IF LEN N*<=20 THEN GOTO 180 

165 PRINT AT 4.,0;M* 

170 G06UB P 

175 GOTO 14.5 

180 LET A$(E}=N» 

185 IF A$(E)=X*(1 TO 20> THEN G 
OTO 150 

190 PRINT AT 4,4.;":";.X* 

195 PRINT AT 5,0;N$ 

200 PRINT AT 7,0;"TELEFONNUMMER 
(MAX. 15 P06.) 7 ” 

205 INPUT N$ 

210 IF N*=”“ THEN GOTO 1 

215 IF LEN N$<=15 THEN GOTO 235 

220 PRINT AT 7,0;M$ 

225 G06UB P 
230 GOTO 200 
235 LET B*(E}=N* 

24.0 IF B$(E)=X*(1 TO 15) THEN G 
OTO 205 

24.5 PRINT AT 7,13; " : " ; X* 

250 PRINT AT 8,0;N» 

255 FOR 1=4. TO 8 
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as© PRINT RT 1,0;X$ 

365 NEXT I 

370 NEXT E 

375 GOTO 1 

330 FOR 0=1 TO 50 

aS5 NEXT O 

390 RETURN 

300 PRINT “S U C H E" 

305 PRINT NOCH NOHEN" 

310 PRINT ,,"2) NOCH NUMMERN" 
315 PRINT ,,"DRUECKEN SIE DIE E 
NT3PRECHENDE TOSTE" 

330 IF INKEY*<>"" THEN GOTO 320 
325 IF INKEY*="" THEN GOTO 325 
330 LET «_* = INKEY* 

335 IF L*<>"1" OND i_*<>"2" THEN 
GOTO 320 
34-0 Cl_S 

350 PRINT "S U C H E" 

360 PRINT OT 2,0;"GEBEN SIE ";{ 
"DEN NOMEN" OND L*="1")+("DIE NU 
MMER" OND l_* = "2"J ; " EIN, NOCH 
^365 PRINT "DEM ICH SUCHEN SOL.L.: 

370 INPUT N* 

375 IF N*="" THEN GOTO 1 
330 LET S*=N$ 

385 IF S*(l TO 15+CS OND L*="l” 
i}=X*Cl TO 15+CS OND L*»"!")) TH 
EN GOTO 370 ^ » n 

39© IF LEN N*<=15+C5 OND L*="l" 
THEN GOTO 4-10 
395 PRINT OT 2,0;M*;X* 

GOSUB P 
GOTO 360 
PRINT OT 4-,0;S* 

GOSUB P 
CLS 

IF E>50 THEN FOST 
PRINT S* 

LET U=1 
LET Z=0 
PRINT 

FOR 1=1 TO E-1 

IF L*="l" THEN IF 0*CI,1 TO 
N*)<>N* THEN GOTO 560 
IF L*="2" THEN IF B*CI,1 TO 
N*)<>N* THEN GOTO 560 
LET Z=Z+1 

PRINT R*CI);" ";B*CI) 

IF Zz-UolS THEN GOTO 560 
SLOU 

- PRINT OT 21,0;"OUSDRUCK OUF 

DRUCKER CU/'N) ?" 

4-85 IF INKEY* <>"" THEN GOTO 4-85 
4-90 IF INKEY * = "" THEN GOTO 4-90 
4-95 LET 0* = INKEY* 

500 IF 0*="N" THEN GOTO 525 
505 IF 0*0 "ü" THEN GOTO 485 
510 PRINT OT 0,0;X* 

515 PRINT OT 21,0:X* 

520 COPY 

525 PRINT OT 21,0;X* 

530 PRINT OT 21,0;"FUER WEITER 
N/L" 

535 IF INKEY * < >"" THEN GOTO 535 
540 IF INKEY*="" THEN GOTO 540 
545 LET U=U+1 
550 CLS 

555 IF E>S0 THEN FOST 
560 NEXT I 
565 SLOU 

^70 IF Z=0 TH EN PRINT OT 0,0;"ü* 


400 

405 

410 

415 

420 

425 

430 

435 

440 

445 

450 

455 

LEN 

458 

LEN 

460 

465 

470 

475 

4S0 


575 IF Z=0 THEN GOTO 625 
Se© PRINT OT 21,0; "OUSDRUCK CU.-^ 
N ) ? “* 

585 IF INKEY*<>"" THEN GOTO 585 
590 IF INKEY*="" THEN GOTO 590 


595 LET 0*=INKEY* 

600 IF 0*="N" THEN GOSUB 625 
605 IF 0*0 "U" THEN GOTO 585 
610 PRINT OT 21,0;X* 

615 PRINT OT 0,0;X* 

620 COPY 

^625 PRINT OT 20,0; "FUER MENU N./ 

~630 PRINT "FUER WEITERE SUCHE > 
P < " 

635 IF INKEY*<>"" THEN GOTO 635 
64.0 XF XNKEYSis"" THEN GOTO 64-0 
645 LET 04=INKEY* 

650 XF O^OCHR* 113 RND 
THEN GOTO 635 

655 XF 0* = ”P'^ THEN GOTO 665 

660 GOTO 1 

665 CLS 

ST0 GOTO 340 

660 PRINT ''KORREKTUR" 

„090 PRINT OT 3,0;"KORRIGIEREN 7 
695 INPUT K 

700 IF K>1 OND K<E OND K=INT K 
THEN GOTO 725 

705 PRINT OT 2,0;"IHRE GEWUENSC 
HTE ZEILE LIEGT” 

710 PRINT "NICHT INNERHOLB DER 
GRENZEN." 

715 GOSUB P 
720 GOTO 685 

-korrigierte Z 

730 PRINT OT 4,0;"DIE ÖLTE ZEIL 
E LOUTET;" 

735 PRINT 0*CK);" ";B*CK) 

740 PRINT OT 7,0;"NEUER NOME 7" 

745 INPUT N* 

750 IF N*="" THEN GOTO 1 

755 IF LEN N$<=20 THEN GOTO 775 

760 PRINT OT 7,0;M* 

765 GOSUB P 

770 GOTO 740 

775 LET S*=NS 

780 IF S*=X*C1 TO 20) THEN GOTO 

785 PRINT OT 7,10;": " 

790 PRINT 5* 

795 LET K$=N$ 

^f00^PRINT OT 10,0;"NEUE NUMMER 
805 INPUT N* 

-810 IF N* = "" THEN GOTO 1 

815 IF LEN N*<15 THEN GOTO S3S 

82© PRINT OT 10,0;M* 

825 GOSUB P 

830 GOTO 800 

835 LET S*=N* 

840 IF S$=X*C1 TO 20) THEN GOTO 

805 

845 PRINT OT 10,10;"; " 

©50 PRINT N* 

855 LET 0$CK)=K* 

860 LET B*CK)=S* 

865 GOTO 1 

880 LET K*="TEL" 

885 PRINT "DIE UIEUIELTE DOTENB 
ONK IST" 

890 PRINT "DIESES PROGROMM 7" 
895 INPUT K 

900 IF K<0 OR K<>INT K THEN GOT 
O 895 

905 LET K*=K*+STR* K 
91© CLS 

915 PRINT "LODEN SIE DIESES PRO 
GROMM UNTER“ 
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Zinsenberechnungl 6K 


920 PRINT ,3;K$ 

925 PRINT w//“iJENN SIE RUFNRHH 
EBEREIT SINO^" 

930 PRINT "DRUECKEN SIE IRGENDE 
INE TRSTE" 

935 IF INKEY* <>■"• THEN GOTO 935 
94.0 IF INKEY» = ‘*" THEN GOTO 940 
945 CLS 
950 SRUE K* 

955 GOTO 1 
1000 CLS 



;TfiB 31; 

1 WEITERE EIN6RBE 


; D-E + l; " 


1010 

1015 PRINT ' 

N";TRB 31; •• 

1020 PRINT (NOCH 

HOEGLICH) "JTRB 31; " I" 

1025 PRINT ••1";TRB 31; " i" 

1030 PRINT "l 2 KORREKTUR“;TRB 
31 ' •» 

1035 PRINT “|";TRB 31; “ 1* 

1040 PRINT ':a 3 SUCHEN (RRBEIT5 

MODUS) ^ 

1045 PRINT ■T|“;TRB 31; ” I" 

1050 PRINT *J 4 RBSPEICHERN DES 
PROGRRMMES _ 

1055 PRINT MIT RLLEN ORTEN 

RUF BRNO 

1060 PRINT ‘ ^"iTRS 31; " 


» 

UM INS MENU ZURUECK 

t 

DRUECKEN SIE N/'L";T 




1065 PRINT 

lOT© PRINT 
ZUKEHREN^ 

1075 PRINT 
RB 31; “ I" 

1060 PRINT 

ToB^^F INKEY * < > " " THEN GOTO 10© 
5 

1090 IF INKEY*="” THEN GOTO 1090 
1095 LET L*=INKEY* 

1100 IF L*<"1" OR L*>“4“ THEN GO 
TO 1085 
1105 CLS 

1110 IF L*="l" THEN GOTO 115 
1115 IF L*=“2" THEN GOTO 680 
1120 IF L»="3" THEN GOTO 300 
1125 GOTO 880 



WEITERE EINGRBEN 
(NOCH 320 MOEGLICH) 

2 KORREKTUR 

3 SUCHEN (RRBEITSMODUS) 

4 RBSPEICHERN DES PROGRRMMES 
MIT RLLEN DRTENRUF BRNO 


UM INS MENU ZURUECKZUKEHREN, 
DRUECKEN SIE N/L 


Dieses Programm berechnet den Zinsgewinn 
und das (hoffentliche) Anwachsen Ihres 
Kapitals bei verschiedenen Sparformen. Das 
Programm fällt durch gute Grafikdarstellung 
auf, wäre also zum Beispiel als Blickfang 
in der Schalterhalle einer Bank geeignet. 

Zur Eingabe wird durch die am oberen 
Bildschirmrand erscheinenden Begriffe "KA¬ 
PITAL:", "ZINS:" und "LAUFZEIT:" aufgefor¬ 
dert. Sie erscheinen in dieser Reihenfolge 
und es werden nur Zahlen verlangt. Die 
nähere Bezeichnung, wie etwa "PROZENT" bei 
der Zinseingabe und "JAHRE" bei der Lauf- 
zeiteingabe (wird nur ein Jahr eingegeben, 
schreibt das Programm "JAHR") werden vom 
Program selbsttätig ausgedruckt. 

Was nach der Laufzeiteingabe z.B. hinter 
dem Komma steht, wird vom Programm dezimal 
bewertet (2.25 Jahre sind also 2 Jahre und 
3 Monate). Soweit die Eingabe. 

Bis zur Programmzeile 190 sind sicher keine 
Erläuterungen notwendig. Die Zeile 200 muß 
sein, weil "K" in Zeile 360 die Zinsformel 
durchläuft und das "K" danach nicht mehr 
mit der Eingabe "K" identisch ist. 

Um den Zinsgewinn als Einzel wert ermitteln 
zu können, muß jedoch von "K" nach Zeile 
360 die Eingabe "K" subtrahiert werden, wie 
es in Zeile 430 durch "K-A" geschieht. 

"X" ist also der Zinsgewinn und sein Wert 
wird in Zeile 440 auf zwei Stellen nach dem 
Komma begrenzt. Dies gilt sinngemäß auch 
für den "DURCHSCHNITTL. ZINSGEWINN/JAHR" in 
Zeile 470. 

Um zu erreichen, daß bei der grafischen 
Darstellung die Verhältnisse immer stimmen, 
wird der Wert "Kapital + Zins" = "K" immer 
in einer PLOT-Länge von N=38 dargestellt. 
Die PLOT-Werte für "Kapital" = "K-A" und 

"Zinsgewinn" = "X" werden ermittelt und in 
je eine FOR/NEXT-Schleife eingebracht, in 
der 38 durch sie dividiert wird (Zeile 620 
und 670). Das Ergebnis der beiden Divisio¬ 
nen ist jeweils die PLOT-Länge für die 
entsprechenden Säulen (Zeilen 630 und 680). 
Durch die Zeile 720 wird erreicht, daß 
unter die entstandenen Säulen eine Basisli¬ 
nie gezogen wird. Da der am weitesten 
rechts liegende vertikale PLOT-Befehl für 
den Punkt 41 ausgegeben wurde, muß der 
horizontale PLOT-Befehl folgerichtig bei 41 
enden. 

Auch wenn der Zinsgewinn das Kapital um das 
dreißigfache übersteigt, wird eine "Ka- 
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pitalSäule" dargestellt. Bei extremeren 
Werten wird diese Säule jedoch nicht mehr 
ausgedruckt. In Zeile 840 muß es deshalb 
Z*100 heißen, weil in Zeile 260 die Eingabe 
"Z" durch 100 dividiert wurde, damit der 
Computer damit arbeiten kann. 

Die Zeilen 970-990 sind nicht wichtig, sie 
sorgen nur für etwas Komfort (am Programm¬ 
ende wird die Länge in Kilobytes ausge¬ 
druckt). 

Die Zeile 9990 ermöglicht ein Abspeichern 
mit dem Befehl "RUN 9990" und Zeile 9991 
sorgt dafür, daß der Programmablauf nach 
dem Laden ohne jeden weiteren Befehl be¬ 
ginnt. Der abgeschlossene Speichervorgang 
wird in diesem Fall nicht durch 0/0, son¬ 
dern durch den Start des Programnes ange¬ 
zeigt (warum anschließend im Programmlis- 
ting das "G" in Zeile 9990 invertiert dar¬ 
gestellt wird, ist auch mir ein Mysterium. 
Doch es läuft!). 

Armin Remy 

10 REM ZINSBERECHNUNG 

20 PRINT "MIT DIESEM PROGRRMM 
KQENNEN SIE" 

30 PRINT 

4.0 PRINT "BERECHNEN.. UIE SICH 
IHR KRPITRL." 

50 PRINT 

S0 PRINT "UERHRECT . WENN -ZINS 
- UND ./'ODER" 


4-20 

PRINT 

RT 

3,15;"-!- ZTN5GEUTNN 

4-30 

LET X 

=K-R 

44-0 

LET X 

= XNT 

CX*10G)7100 

4-5© 

PR IMT 

RT 

9,0. X 

4.t^© 

PRINT 

RT 

9.1-S; "ZXNSGE-UXNN" 

4-70 

PRINT 

RT 

li,0; INT l iXyü) ^10 

0}7100 



4o© 

PRINT 

RT 

11,15,"DURCHSCHNIT 

•*7’ »_ »• 

490 

PRINT 

RT 

12,15;"ZXNSGEUINN7 

JRHR' 




50© 

PRINT 

RT 

13,0;"- 


'MOECHTEN SIE 


S10 PRINT RT 15 .,0.; 

EINE GRRPHISCHE" 

52© PRINT RT 16 . ©; "DRRSTEL-LUMG 
DIESER UERTE?" 

530 PRINT RT 21 .0; " (U/'N) " 

IF INKEY$ = "” THEN GOTO 54-Q 
IF INKEY$="N" THEN GOTO 95© 
Cl_S 

570 REM BEFEHL-E FUER GRBPHIK-fiU 
F3RU 

FOR N=0 TO 33 
Pl_OT ©,N 
Ö00 PLOT 
610 NE.XT N 
620 LET U=3Sy'K^tR 
630 FOR N=1 TO U 
S4.0 PLOT 20, N 
650 PLOT 21,N 
660 NE.XT N 
670 LET X=33--’K*X 
630 FOR N=1 TQ X 


54-0 

550 

5fc>© 


5se 

590 


530 PLOT 4.0 
T00 PLOT 4-1..H 
710 NEXT N 
720 FOR TO 

730 PLOT 
74-0 NEXT N 


4-1 


7© 

PRINT 



750 

PRINT 

RT 

17,2; K 

30 

PRINT 

"-LRUFZEIT- UERRENDER 

750 

PRINT 

RT 

19,l;"< KRPITRL" 

T UEROEN^^' 



77© 

PRINT 

RT 

20,1;" ^ ZINS" 

90 

PRINT 



730 

PRINT 

RT 

17.12;K-IK-R) 

100 

PRINT 



790 

PRINT 

RT 

19.11;"< KRPITRL" 

110 

PRINT 

"DRS 

PROGRRMM BEGINNT 

300 

PRINT 

RT 

17.22;K-R 

, UENN SIE" 



310 

PR J^4T 

RT 

19.21;"< ZINS-" 

12© 

PRINT 



320 

PRINT 

RT 

20,21;" GEUINN" 

130 

PRINT 


DRUEC-KEN, " 

0*30 

PRINT 

RT 

©,Ö;"BEI EINER LRU 

140 

IF INKEY$= 

"" THEN GOTO 14© 

FZEXT UON ' 

u; 

" U . " 

150 

IF INKEY^rr 

"N" THEN GOTO 950 





150 

OL3 



S40 

PRINT 

RT 

1,0;"UND EINEM ZIN 

170 

PRINT 

"KRPITRL:", 

S UON ";Z*100; 

" PROZ." 


1S0 INPUT K 
190 PRINT K 
20© LET ß=K 
210 PRINT 

220 PRINT *'ZIHS:"^ 

24-0 INPUT Z 
250 PRINT Z." PROZENT" 
250 LET Z=Zx'100 
27© PRINT 
25© PRINT "LRUFZEXT: ' . 
300 INPUT .J 
310 IF U<2 THEN PRINT 
320 IF U>1 THEN PRINT 

34-0 REM Zir‘4SFORMEL 
350 FOR N=1 TO U 
350 LET K=K+Z#K 
370 HEXT N 
330 LET K=XMT 
39© PRINT RT 5.©;"- 


550 

DET 

350 

593 

90 © 

910 

920 


REH PROGRRMM-DURCHLRUF BEEN 


> >UEITEP.-* 
* "MRCHEN7 < <■ 


PRINT RT 3*22; 

PRINT RT 9^22; 

PRXMT RT 11,22;"CJ/Ni" 

IF XNKEV$="" THEN GOTO 910 
IF INKEY$="N" THEN GOTO 95© 


4-00 PRINT RT 7,0; K 
4-10 PRINT RT 7,15 ; "Rf4FRHG5KRPIT 




930 

CLS 



940 

GOTO 170 



95© 

CLS 



9-5© 

PRINT RT 11,9;"E N D E" 

ü ; " 

URHR" 

97© 

LET R=iREEK 15397*255+PEEK 

U; " 

ÜRHRE 

15395)-15509 



93© 

LET R=:INT R71000 



990 

PRINT RT 21,0; " (PR'OGR. -LRE^4 



GE = 

";R;" K-BYTES)" 



1000 

GOTO 999*9 

7 100 


999© 

SRUE "ZINSBERECHNUNB" 



9991 

GOTO 10 



9999 

STOP 


RL- 


Eine Publikation von CHIP 


71 








Hobby 


Rechnungsprogramm 16K 


Dieses Programm ermöglicht es dem Benützer, 
mit dem ZX 81 wie mit einer elektronischen 
Kasse zu arbeiten. 

Das Programm speichert 70 verschiedene 
Produkte mit Namen und Preis. Um die Pro¬ 
dukte einzugeben, drücken Sie als Antwort 
auf das Menu des ZX die Taste 4 ("Ein 
Produkt ändern"), womit sie später auch 
Produkt und/oder Preis ändern können. 

Nach der Speicherung geben Sie das Datum 
ein (Taste 7) und gehen dann in den Ar¬ 
beitsmodus. Im Arbeitsmodus könnte der ZX 
mit diesem Programm auch ohne Bildschirm 
arbeiten, wenn ein ZX-Printzer angeschlos¬ 
sen ist. 

In unserem Beispiel haben wir das Programm 
als Kasse eines Kaffeehauses verwendet. 
Nachdem die Produkte (vom Kaffee zum Apfel¬ 
strudel ) eingespeichert sind, braucht der 
Kellner im Arbeitsmodus nur noch die jewei¬ 
lige Kennziffer des Produkts eingeben. 

(Für einen Kaffee mit Sahne tippt er bei¬ 
spielsweise 17, für den Käsesahnekuchen 
38). Wenn alle Rechnungsposten eingegeben 
sind, drücken Sie "S" (wie Summe) worauf 
der Computer die Beträge addiert und (falls 
ein ZX-Printer angeschlossen ist) die Rech¬ 
nung zweimal ausdruckt. Ein Beleg steht für 
den Gast zur Verfügung, der zweite kann für 
die Buchhaltung abgelegt werden. Zwischen 
dem Ausdruck des Originals und der Kopie 
macht der ZX eine kleine Pause, sodaß der 
erste Beleg abgerissen werden kann. 

Der auf der Rechnung ausgedruckte Zusatz- 
und Werbetext kann in den Zeilen 30, 40 und 
50 entsprechend geändert werden. 

Damit Sie die Übersicht behalten, können 
Sie alle gespeicherten Produkte ausdrucken. 

Damit festgestellt werden kann, welches 
Produkt ein "Renner" ist, kann am Ende 
eines Tages oder einer Woche eine "Ge¬ 
samtstatistik" ausgedruckt werden, wobei 
Sie der Computer darüber informiert, wel¬ 
ches Produkt wie oft verkauft wurde. 

Mit der Taste "5" löschen Sie diese Statis¬ 
tik. 

Mit Taste "8" haben Sie die Möglichkeit, 
den Gesamtumsatz des Tages auszudrucken. 
(Fachmännisch heißt das "Schubladensoller- 
mittlung") 

Mit "4" schließlich können Sie das gesamte 
Programm mit Variablen auf Cassette schrei¬ 
ben (eine Möglichkeit, von der Sie beson¬ 


ders während der Initialisierung, also dem 
erstmaligen Eingeben der Produkte Gebrauch 
machen sollten, um sich vor frustrierenden 
Überraschungen wie plötzlichen Netzschwan¬ 
kungen zu schützen). 

Das Programm ist für den Gebrauch mit dem 
ZX-Printer gedacht, kann aber geändert 
werden. 

Wenn Sie das Programm kommerziell einsetzen 
wollen, sollten Sie auf alle Fälle an die 
Anschaffung einer Stützbatterie denken, um 
sich vor eventuellem Datenverlust zu 
schützen. 


1 REH tC) BY THOHRS GUSS 
10 DIM R$(70.3S) 

20 DIH B(71) 

30 LET 0$=”CRFE l_RNDTHftNN“ 

4.0 L.ET B*=“fll_l-E STEUERN UND RB 
GRBEN INKl_ . “ 

50 LET C$ = *'UIR DRNKEN FUER IHR 
EN BESUCH“ 

6© FOR 1=1 TO 7© 

70 LET R$i t IJ =“.. . 

. 00 . 00 “ 


80 NEXT I 
100 GOTO 700© 

110 LET P=5 
12© LET S=0 
15© PRINT 0$! 

160 PRINT 
170 PRINT X$ 

180 PRINT 
165 GOTO 26© 

190 LET E=VfiL 

195 LET B(E)=B(E)+1 

20© PRINT Ri^CE) 

21© LET P=P+1 

220 LET S=S+<URL R* <E.. 28) ) »10 
230 LET S=S+UfiL fi¥(E.. 29) 

24.0 LET S=S+<URL R$ (E.. 31) ) /'l© 
250 LET S=S4-tURL fi$ tE.. 32) ) y'100 
255 LET B(71)=B«71)»S 
260 INPUT D$ 

270 IF D*=“1234567” THEN GOTO 6 
O0 

280 IF D$=““ THEN GOTO 260 
290 IF D$=”S“ THEN GOTO 350 
300 IF URL D$<1 OR URL D$>70 TH 
EN GOTO 260 
31© GOTO 190 
350 LET P=P-1 

355 PRINT RT P..26;”-” 

360 PRINT RT P + 1.. 0; “SUHME : “ 

37© LET L=29 

380 IF S<1000 THEN LET L=L-1 
39© IF S<1©0 THEN LET L=L-1 

40© PRINT RT P+1.. L.:S 

420 IF S»10=INT S»10 THEN PRINT 
RT P+1.3l:“0” 

430 IF S=INT S*1 THEN PRINT RT 
P+1.29;".00“ 

440 PRINT RT 

45© PRINT RT 

460 COPY 
470 FOR 0=1 TO 
480 NEXT O 
490 COPY 
50© CLS 
510 GOTO 110 
600 CLS 

610 PRINT TRB 6 


P+3,0; 
P+5.. ©; C$ 


50 
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630 PRINT 
630 PRINT “1 
STIK'' 

64.0 PRINT 
650 PRINT “2 
DUKTE“ 

660 PRINT 
670 PRINT **3 

jsj- 

66© PRINT 
69© PRINT "4. 
PRODUKTEN'' 
700 PRINT " 
HERN" 

710 PRINT 
720 PRINT "5 


RUSDRUCK DER STRTI 

RÜSDRUCK RL.LER PRO 

EIN PRODUKT RENDER 

PROGRRHH HIT RLL.EN 
RUF KRSSETTE SPEIC 

STRTISTIK LOE5CHEN 


730 PRINT 

74.0 PRINT "6 IN DEN RRBEITSMODU 
5 ZURUECK-" 

75© PRINT " KEHREN" 

755 PRINT 

760 PRINT “7 DRTUM EINGEBEN'' 

77© PRINT 

76© PRINT "6 GESRMTRRECHNUNG" 
600 IF INKEY$="" THEN GOTO 800 
81© L.ET L$=: INKEY $ 

620 IF NOT (L$=:"8" OR OR 

L*=:"2" OR L.$=:="3" OR L.$ = "4." OR L. 
$ = "5" OR L$ = "ö" OR L.$ = "7") THEN 
GOTO 60© 

630 CL.S 

84.0 GOTO URL. L.$*^10©© 

000 FOR P = 1 TO 5 
010 PRINT RT 0.0;" 


020 PRINT RT 0^0;"BITTE ENTNEHM 
EN SIE IHN RH D^RUCKEIR u 

030 NEXT P 
04.0 RETURN 
1000 GOSUB 000 
101© FOR S=1 TO 70 
1020 IF NOT R$(S)="... 


............. .00.00" THEN L.PRINT 

"PRODUKT ";S;":BC5);" HRL UER 
KRUFT" 

1030 NEXT S 
104.0 L.PRINT 
105© L.PRINT 
1055 L-PRINT 
1060 GOTO 60© 

2000 PRINT "RUSDRUCK HIT:" 

201© PRINT 

2020 PRINT "P PREISEN ODER 


2030 PRINT "N NUHHERN" 
2040 IF INKEY$="" THEN 
2050 EET K$ = INKEY $ 

206© IF NOT CK$="P" OR 
HEN GOTO 204© 

207© CES 
2060 GOSUB 000 
200© FOR R=1 TO 70 
210© IF K$="P" RND NOT 


GOTO 2040 
K$="N") T 


R$ (R> =•• . . 

.. 00 . 00 " 


THEN EPRINT R$CR) 

2110 IF K$="N" RND NOT R$(R). 

....... 00 . 00 " 


RND R<1© THEN EPRINT " 

2115 IF K$ = "N'^ RND NOT R$ CR) , 

............. 00 . 00 " 

THEN EPRINT R; " ";R$CR.. 1 TO 27) 

2120 NEXT R 

2130 EPRINT 

2135 EPRINT 

2140 EPRINT 

2150 GOTO 60© 

3000 PRINT "UEECHES PRODUKT UOEE 
EN" 


3010 PRINT "SIE RENDERN7" 

302© INPUT U 

3030 IF U<1 OR U>70 THEN GOTO 30 
20 

304© PRINT U __ 

3050 PRINT "BITTE GEBEN SIE DEN 
TEXT EIN:" 

3060 INPUT T$ 

3065 IF T$="" THEN GOTO 3060 
307© IF EEN T$>26 THEN PRINT "BI 
TTE KUERZEN SIE DIE EINGRBE" 

306© IF EEN TS>26 THEN GOTO 306© 
3000 PRINT TS 

3100 PRINT "BITTE GEBEN SIE DEN 
PREIS EIN:" 

3110 INPUT NP 

312© IF NP>00.00 THEN GOTO 3110 
313© PRINT NP 
314© FOR E=:l TO 26-^EEN TS 
3150 EET TS=T$^"." 

3160 NEXT E 
3170 EET R$CEU=TS 

3180 EET RS fU..2S) rrSTRS (INT NP/1 
0 ) 

3100 EET RS CU.. 20) tsrSTRS C CINT NP/ 
1)-CURE RS CU..28) ^^10) ) 

320© IF RS CU. 26)='"" THEN EET R$ t 
U.. 26) ="©" 


321© EET R$CU^3©)="." 

3220 EET RS CU.31) =STRS C CINT CNP 
^10) /l) - CURE RS CU.. 28) «^10©) - CURE 
RS CU., 20) «^10) ) 

323© IF RS CU.31)="" THEN EET RSC 
U,.31)="©" 

324© IF RS CU. 20)="" THEN EET RS ( 


U.20)="©" 

3250 EET RS CU.32) =STRS C CNP^lOO) 
-CURE RS CU . 26) «^1000) ~ CURE RSCU/8 
0) ^100) - CURE RS CU..31) *10) ) 

3260 PRINT RT 0.. 0.; "DRUECKEN SIE 
UM IN DIESEN" 

3270 PRINT RT 1..0;"HODUS UEITERZ 
URRBEITEN >P<. 

3260 PRINT RT 
SIE INS MENU" 

3200 PRINT RT 
UOEEEN. 

3300 FOR G=4 TO 
3310 PRINT RT G. 


2..0;'*UND >H< UENN 

3j.0; "ZURUECKEHREN 


15 
©; ' 


3320 NEXT G 

3330 IF INKEYS-*"* THEN GOTO 3330 
3340 EET US=INKEYS 
335© IF US-‘*P‘* THEN CES 
3360 IF US = *‘P*" THEN GOTO 3000 
3370 IF US-"H" THEN GOTO 600 
338© GOTO 333© 

4000 PRINT "BITTE DRUEQKEN SIE N 

RCHDEM SIE" _ 

4010 PRINT "DEN KRSSETTENRECORDE 
R GESTRRTET" 

4020 PRINT "HRBEN N/E." 

4030 IF INKEY S = *"* THEN GOTO 4030 
4040 CES 

4050 EET BC71)=0 
410© SRUE "CRFS" 

4110 GOTO 60© 

5000 PRINT RT 7,0;"BITTE URRTEN 


SIE 

501© EET ZU=BC71) 

502© DIM BC71) 

503© EET BC71)=ZU 
504© GOTO 60© 

6000 GOTO 110 

700© PRINT "HEUTIGES DRTUH7" 
7010 INPUT XS 
7020 EET XS = "UIEN.. "+XS 
7030 GOTO 600 
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S010 PRXKT 
S020 PRINT “GESRMTEXNNRHMeN:- 
8030 PRINT 

804.0 PRINT TRB 8; B SCHILl-I 

NG'* 

8050 PRINT 
805© PRINT 

8070 PRINT ''BITTE DRUECKEN SIE N 

8080 IF INKEY$» = *'- THEN GOTO 8080 
8000 IF CODE INKE>'^=:118 THEN GOT 
O 600 

8100 GOTO 8080 

1 RUSDRUCK DER STRTISTIK 

2 RUSDRUCK RL.L.ER PRODUKTE 

3 EIN PRODUKT RENDERN 


4. PROGRRMH MIT Ri.L.EN PRODUKTEN 
RUF KRSSETTE SPEICHERN 

5 STRTISTIK L.OESCHEN 

5 IN DEN RRBEITSHODUS ZURUECK- 
KEHREN 

7 DRTUM EINGEBEN 

8 GESRHTRRECHNUNG 


CRFE L.RNDTMRNN 
UTEN ,.25.8.82 


RPFEl-STRUDEL.« ............. 22.00 

Kl« . BRRUNER ... 18.00 

KL. • BRRUNER ... 18.00 


SUMME: 58.00 


RLL.E STEUERN UND RBGRBEN INKL. 
WIR DRNKEN FUER IHREN BESUCH 


10 
15 
20 
25 
30 
35 
4^0 
45 
5© 
55 
50 
55 
70 
75 
80 
05 
00 
05 
100 
105 
107 
110 
115 
12 © 
125 
130 
GEN" 
135 
EN 
14© 
145 
160 
155 
170 
175 
180 
185 
190 


PRINT 

PRINT 

PRINT 

INPUT 

PRINT 

PRINT 

XNPUT 

PRINT 

PRINT 

INPUT 

PRINT 


" *^*ZEIT^96^" 


R 

R 

"r 

8 

"I 

C 

c 


•STDT" 


MINT" 


'ENTFERNUNG?' 


PRINT "HOECHSTGE5CHU?" 

XNPUT D 
PRINT D 

LET E-INT iC^eyC} ^^10 

l-£T P-CR-3p50-rB^ -i-E 

IF F<1441 THEN GOTO 140 

LET G = INT (F/1441> +1 

FOR 1=1 TO G 

LET F=F-1441 

IF P<1441 THEN GOTO 115 

NEXT I 

PRINT 

PP X^4T " RNKUHFT : " ; 

iP I-i THEN f'HJ.Ni ' rtOfUsc.N" 

IP 1=2 THEN PRINT "UEBERMOR 


35 IF 1=3 THEN PRINT "IN 


3 TRG 


PRINT "RNKUNPTSZEIT ; 

EET R = INT (py-6©) 

»_ET B=F-P^t60 
IF fi<10 THEN PRINT , 

IF fi=S4. THEN LET B=59 ' 
THEN LET R=23 
PRINT R * “* * '* * 

IF B< 10 'THEN PRINT ‘•0”; 
PRINT B 


»»ZEIT** 

STD? 

15 

MIN? 

20 

ENTFERNUNG? 

300 

HOECHSTGESCHU? 

70 

RNKÜNFTSZEIT:19:30 


Reisexeitrechner 1K Morsecode 16K 


Dieses IK-Programm ist bei längeren 
Autoreisen nützlich: Es berechnet nach 
Eingabe der momentanen Zeit, der Entfer¬ 
nung und der Höchstgeschwindigkeit Ihre 
voraussichtliche Ankunftszeit. 

Gute Fahrt! 


Eine der Bedingungen, um eine Amateur¬ 
funklizenz zu erwerben ist die Beherrschung 
des Morsecodes. Dieses Programm könnte Ihne 
helfen, den nötigen Grad an Geschick¬ 
lichkeit beim Morsen zu bekommen. 

Wenn Sie das Programm laufen lassen, er¬ 
scheint ein Menü, und Sie können zwischen 
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der Übersetzung von deutschem Text in 
Morsecode oder einer Übungsroutine wählen. 
Bei der Übungsroutine gibt das Programm ein 
Morsezeichen an und Sie haben drei Ver¬ 
suche, es richtig zu übersetzen. 

Wenn Sie es nicht innerhalb der drei Ver¬ 
suche schaffen, sagt Ihnen das Programm, um 
welches Zeichen es sich gehandelt hat. 


iS REH MORSE TRRINER 

2S REH tC) -J KNIGHT.. l’S-aS 

30 GOSUB G0O0 

4.0 FOR G = 1 TO 10 

4-1 SCROLL 

4-3 NEXT G 

4-4. PRINT "HRKE R 5ELECTION; " 

4-5 SCROLL 

4-6 SCROLL 

4.-7 SCROLL 

4.8 PRINT ■*! - ENGLISH Tü MORSE 

.50 .SCROLL 

^>\JRDLL 

6© PRINT - MORSE Tü ENGLISH 


- TO END“ 


T© SCROLL 
75 SCROLL 
Sö PRINT “3 
90 INPUT T 
10© GOSUB T*10OO 
110 GOTO 4.0 
100© REM ENGLISH TO 
1Q©2 SCROLL 
1003 SCROLL 
1005 SCROLL 
1010 PRINT “ENGLISH 
1015 SCROLL 
1017 SCROLL 

1020 PRINT “ENTER VÜÜR 
THEN“ 


MORSE 


Tü MO.RSE“ 


MESS.RGf' 


1025 SCROLL 

PRINT TRB 3; “PRESS .NEULJhUE“' 
INPUT U$ 

SCROLL 

FOR G=1 TO LEN U$ 

IF U$(!><>“ “ THEH GOTO lOS 


1030 
1040 
1045 
1050 
1055 
0 

1060 
1065 
1070 
1060 
1090 
1100 
1120 
1150 
S0O© 

2002 
2005 
2007 
2010 
TTER 

2015 

THREE“ 

2025 SCROLL 

2030 PRINT “GUESSE 

UHRT IT IS.“ 

2035 SCROLL 
2040 SCROLL 
2050 PRINT “PRESS 
OU hRE“ 

2055 SCROLL 


SCROLL 
SCROLL 
GOTO 1090 

PRINT C$CCODE U$i:i>.> 
LET U$=U$(2 TÜ ) 

NEXT G 

IF INKEY$=““ THEN 
RETURN 
REM MORSE TO ENGLISH 
SCROLL 
SCROLL 
SCROLL 
PRINT 
IN“ 

SCROLL 
PRINT 


GOTO 1120 


I UILL GIUE VOU R LE 


“MORSE, RND VOU .HRUE 


TÜ MD.R.K DUT 


NEULINE U.HJE.N Y 


2060 PRINT TRB 


“RERDY TO STRRT 


IF INKEY THE.N GOTO 

LET 5=0 

FOR Z=1 TO 10 

LET J=3S+INT 

SCROLL 

PRINT “UHRT LETTER DOES “/D 
SCROLL 

PRINT TRB 12; “.REPRESENT7“ 
FOR H = 1 TO 3 
INPUT K* 

IF CODE (K$)=ü THEN GOTO 22 


2070 
2075 
2060 
2090 
2100 
2110 
i iü) 

2120 
2130 
2140 
2150 
2160 
20 

2170 SCROLL 
2175 SCROLL 
2180 IF H<3 THEN 
RGRIN“ 

2190 IF H=3 THEN 
EPRE5ENT5 “;CHR$ 
2200 NEXT H 
2210 GOTO 2250 
2220 SCROLL 
2230 PRINT “YES.. 
2240 LET 5=5+1 
2250 SCROLL 
SCROLL 

2260 PRint““YOUR 
OUT OF “;2 


PRINT “ND,. TPY 

PRINT .P 

(U) 

YOU RRE RIGHT“ 

SCORE IS “;S;“ 



2290 SCROLL 
2300 SCROLL 
2310 NEXT Z 


2320 RETURN 
3000 STOP 
y000 rRST 

S005 LET .R$ = “x - + — * » * + + - n- 

, -+ + - 

- + +-+.-. +-. - - .tf-r -r - 

+ . . “ 

9010 DIM C$(B4,5.'^ 

9020 FÜR B=3S TO B4 
9030 LET B$=““ 

9040 FOR C=1 TO 5 

9045 IF H$(l)=“-3t“ THEN GOTO 9030 
9050 LET B$=B$+R$(1) 

9060 LET R*=R$(2 TO > 

9070 NEXT C 
90S0 LET C$ilB}=B$ 

9085 LET Ri=R$(2 TO 
9090 NEXT B 
910© 5LOU 
9500 RETURN 


Wallpaper 16K 


"Wallpaper" ist ein nettes kleines Grafik¬ 
programm, das Ihren Namen oder einen an¬ 
deren eingeben String benützt, um interes- 
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Text-Editor 16K 


sante Grafikmuster zu erzeugen. Das wäre 
doch eine Möglichkeit, Cover für Software- 
cassetten herzustellen...! 


10 REH NRHE URi-L-PRPER 

20 REM CO MRRK CHRRL.TON 12Q2 

2E 5CROL.L. 

30 PRXHT *•IHRE^4 NRMEN BITTE:“ 

3B SCROl^L. 

4-0 IHPUT 

4S LET “ 

4-e. XF EEM R$<ie THEH GOTO 4-5 
4.7 L.ET TO iOi 

50 FOR 0 = 1 TO 15 

50 IF RND>=»5 RNO CODE R$CO<l 
25 THEW LET (Gj =CHR$ CCODE l 

G) +1201 

70 IF R^4D J = . -5 RMD CODE R $ C G ) > 1 
27 THEN CET cGi =CHR^ CCODE C 

G) -125) 

00 HEXT G 
120 FQR H=:l TO 15 
150 FOR h=:-15 Tu 15 

145 IF R=© THEN GOTO ISO 
150 PRI^^^ R$(RB5 R) ; 

15© NEXT R 

170 SCROEE 

100 EET R$ = R$l2 TO 

120 NEXT H 

200 GOTO 50 



NIZRGt ^l^^ggjl^ RZXN 



C 

HC 
IHC 
PXHC 


Dieser Text-Editor ermöglicht es Ihnen, 
Texte zu erfassen, zu verändern, zu korri- 
gieren. 

Um zu beginnen, geben Sie eine Beliebige 
Zeilenlänge ein (es ist auch möglich mehr 
als 32 Zeichen pro Zeile zu setzen. Der 
Bildschirm wirkt dann sozusagen als "Lupe" 
und wird über den Text bewegt). Das Pro¬ 
gramm berechnet dann wieviele Zeilen Sie 
maximal eingeben können. Um die Funktionen 
kennenzulernen, die Ihnen zur Verfügung 
stehen, tippen Sie zu Beginn am besten die 
HELP-Funktion ein, die Sie durch den Dop¬ 
pelstern (**) erreichen. 

Es ist auch möglich, daß das Programm den 
Text ausdruckt, obwohl Sie diesen Teil 
implementieren müssen (in dieser Fassung 
eignet es sich nur zur Texterfassung und 
Veränderung am Bildschirm). Wenn Siue einen 
Druckteil einbauen wollen, müssen Sie dabei 
auf die Bedürfnisse Ihres Druckers Rück¬ 
sicht nehemen (verschiedene Normalpapier¬ 
drücken brauchen sehr spezielle Druckbe¬ 
fehle). 

Wegen der Möglichkeit, längere als 32 Zei¬ 
chen lange Zeilen zu schreiben, würde sich 
das Programm besonders gut zur Kombination 
mit einem Normalpapierdrücken eignen. 


1 GOSUEi 700 t? 

5 G05UB 202© 

IS RFn 

15 LET Cß^=PC-i-CC 
17 LET SLC=CC 
2 © LET LR=PL+CL-1 
£2 LET BCL=CL 
25 

[NT RT The ö., Oh.: Th 

*.GRhPJK“ hND G=123 
F‘ THEN PRXNT hT ©.,17; “FU 



NKTXON“ 
33 L-ET 
:34 


H = aQDE Z$ (LR.. Ch> +125 
IF H>255 THEN LET H=H-255 
35 PRXNT RT CL.« CC.. CHR$ H 
PRÜSE 4000© 

POKE 15437..255 
LET X$=:1NKEV$ 

IF 1$=:““ THEN GOTO 4© 

LET X=COCE 

IF I<54 THEN GOTO 51© 

XF 1=115 THEN GOTO 510 
IF Id 12 OR X>229 THEN GOTO 


40 

45 

50 

55 

t>0 

65 

70 

75 

10 

30 

90 

10et 

112 

113 

114 

115 

116 
117 
119 
121 
215 


XF P THEN 
GOSUB 1 
GOTO 10 


GOTO 270 


GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 


3210 
3250 
3:310 
3350 
3710 
:3S 10 
4400 
2210 
22X0 
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217 

GOTO 

32L© 

2243 

PRINT 

“-SH1FT 

F 

-> 

SUCHE” 

21Sr 

GOTO 

45 L© 


PRXNT 

“-SHXFT 

E 

-> 

SUCHE NR 

212 

GOTO 

425© 

ECHSTES“ 





22© 

GOTO 

43070 

2246 

PRXNT 

“-5HIFT 

5 

-> 

sauE“ 

221 

GOTO 

407© 

2*243 

PRINT 

•’-SHXFT 

G 

-> 

CURSOR - 

222 

GOTO 

471© 

> ZEILE“ 





223 

GOTO 

433© 

2595 

PRUSE 

4©©©0 




224 

GOTO 

541© 

2597 

CLS 





225 

GOTO 

291© 

2-593 

GOSUB 

3510 




225 

GOTO 

4.5*1© 

2599 

RETURN 






227* 

aaa 

27^ 

aa© 

4-56 

sie 

320 

aeee 

2010 

2020 

2030 


GOTO 2Ö10 
GOTO 2710 
GOTO 3010 
i-£T F=0 
LET 1 = 1-1-200 
GOTO 10 
GOSUe 3110 
GOTO 10 
REH 
REH 
CLS 

PR JHT RT 10., 3; 


204-0 PRINT TRE 4-.: ' 

D HD ITOR 
2050 PRXNT TR5 4-.; ‘*r 
2031 XF F$ = '"* THEN! 
2052 PRXNT F^ 

2070 PRUSE 4-00 
2030 PQKE 13^37 ..-2-55 
2081 EET PCHRX=1Q0 
20S2 LET PLHRX=iee 
2090 LET CC=0 
2100 LET CL=1 
2110 LET PL=1 
2120 LET PC=PL 
2130 LET N=0 

214-0 LET H=0 _ 

214-3 LET 
214-4- LET C$ = *’ 

2150 GQSUS 3E10 
2135 UET 

216© LET H$ = “C:HRNGE’ 
2170 LET F=0 
219© RETÜf 
220© REH 
22x0 CLa 


N 


HErriE 


XLE.". 
XNPÜT 


2*22© PRINT 
INKS“ 

“-SHXFT 

S 

-> 

CURSOR i_ 

2222 PRXNT 
XHUNTER" 

“SHIFT 

5 

-> 

CURSOR H 

CURSOR H 

2224 PRXr4T 
XNRÜF“ 

“SHXFT 

7 

-> 

2226 PRXNT 
ECHT-5“ 

“-5HXFT 

3 

-> 

CURSOR R 

2227 PRINT 

“-5HX-FT 

9 

- > 

GRftPHIC" 

2225 PRINT 
EINFUFQEN“ 

“-SHXFT 

1 

-> 

ZEJCHEH 

22-29 PRINT 
LOESCHEN“ 

“SHXFT 

© 

-> 

ZEICHEN 

223© PRINT 
EILE“ 

“S,,HJFT 


-> 

INSERT Z 

2231 PRI^4T 
ZEILE“ 

“SHXFT 

3 

-> 

EOESCHEW 

2232 PRXNT 
> TRB“ 

“SHXFT 

4 

-> 

CÜRS.OH - 

2235 PRXNT 
E-5CHEN“ 

“SHXFT 

R 

-> 

REEES EO 

2235 PRINT 
ERSTELLEN“ 

“SHXFT 

D 

-> 

BEREICH 

2*23*3 PRINT 
RNFPNG“ 

“SHXFT 

R 

-> 

CURSOR Z 

2240t PRXNT 
ENDE“ 

“-SHXFT 

Y 

-> 

CUR5C!R Z 

2241 PRXNT 
RUNG Rf4. RÜS 

“SHXFT 

U 

-> 

NUMr-tER; XE 

2242 PRXNT 
EN“ 

“-SHXFT 

T 

-> 

TRB SETZ 


2-510 CLS 

2-520 PRINT RT 1©..©; 

ES LOE5CHEN 7 0=ÜR“ 

253© GOSUB 9010 

IF R5 THEN GOTO 

D IH Z $ ( PLHRX .. PCHRX > 

LET DEL=i 
CLS 

RT 3,a;‘'DHTEN GELOESC 


PRXhJT 


254-0 
255© 

2550 
2555 
2570 
HT" 

2575 
•? 0 = 0R’* 
253© GO 
2 5 S -5 
2590 
270© 

2710 
2720 
273© 

274-0 
■ -32 ^ 

2750 
2755 
32 

275© 

2770 
LHRX ; 

2730 
2790 
2-30© 

2310 
2320 
2330 
= 0 

234^0 
26*50 
2-300 
2:5» 3© 

2900 
2910 
2920 

2925/ PRXNT 


‘yjRKLJCH RLL 


351© 


PRINT RT 12.. 3.; ‘*DRTEX LROEN 


901© 

“O" THEN 
-351© 


GOTO 9110 


GOTO 2330 


ÜB 
XF R^ 

GOTO 
REH 

XF DEL=0 THEN 
LET HEH=5©00 
CLS 

PRXNT ”ZEXLENLhENGE ' 

XNPÜT PCHRX 

IF PCHRX<32 THEN LET 


mXND 


PCHRX 


LET PLHRX = JNT (HEHXPCHRX > 
PRXNT *‘ÖK - ES STEHEN **; P 
” ZEILEN“ 

PRINT “ZUR ^ERFuEGUMG^^ 

D IH Z $ f PLHRX.. PCHRX> 

DIH T(2©) 

FÜR H = 1 TO *20 

LET T CHj =3tf <H-1> -^i 

XF T(H)>PCMRX THEN LET T 


NEXT H 
LET DEL=0 
GO-SÜ3 9013 
RBTURl^^ 

REH 
CLS 
PR INT 


^^dhteinrhe:^^ .. , 

“NEÜ-LJNE FÜER 


ODE 


XNPÜT R$ 


2930 

2935 

2937 

300© 

310© 

3*11© 

3120 

3130 


- REC-TRSTE RH REGOR 


- NEÜ-LJNE DRUECKEN“ 


THEN 

.13 


29-3© 

29-35 XF R$>“‘' THEN LET F$ = R$ 

2950 PRXNT BRNO RUF RIGHTST 

ELLE SPÜLEN 
29B0 PRXrTF 
DER DRÜECKEN“ 

2970 PRINT 

XNPÜT R$ 

XF R$='*“ 

GD5ÜB 35 
GQTQ_1 

REM 1__ 

IF X=11S THE^4 LET 

LET T^=CHR^ 

XF H THEN LET Z$ CLR..-CR^l TO 

^ > =Z^ / LR.. CR TO ) 

4-34-0 LET PC =32* INT l* PCHRX/'3*2} 4-1 
■4-350 LET CC=PCHRX-PC 
4-350 GOTO 35 

•4-4.©© REH __ 

4.-410 IF M=1 THEN GOTO 44-7© 

4420 GOSUB 3310 

443© LET Z* (LR.. PC^CO 


SRÜE Fs 


1=0 
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4.4.4.5 L-ET ril=PC^31 

4-4.4.-? XF H1>PCMRX THEN LET H1=PCM 
RX 

4 . 4 . 5 © PRIKT RT CL ^ CC; Z$^ iLR^PC-s-CC 
TO Hl) 

4 . 4.50 RETURN 

4 . 4 .TO IF CR = 1 THEN RETURN 
4.-4-30 G03ÜB 3310 

4 . 49 © LET Z$ PC-fCC TO )=Z$lL.Ry 

PC-f CG 4 1 TO ) 

4500 LET Z$ (LR.. PCHRX3 =•• - 

4510 LET H1=PC4-31 

4590 XF HDPCHRX THEN LET H1=PCH 
RX 

4530 PRINT RT CL ^ CC; Z$ (LR .. PC-t-CC 

TO HIV 

454© RETU RN 

4500 REH 

4610 FÜR H=PLHh:>: TO LR STEP -1 
4690 LET Z$(H)-Z$(H-1) 

4630 NEXT H 
4640 LET H2=LR 
4650 GOTO 476© 

4T00 RExH arsilgSlfeigiig 

4710 IF LR=PLMRX THEN GOTO 4750 
472© FCR H=LR TO PLHRX-1 

473© LET Z$ =Z$ (H-hi) 

474© NEXT H 
4750 LET H2 = PLr1RX 
476© POR H=1 TO PCHRX 
4770 LET Z$CH2..H)=” 

476© ^4EXT H 
4790 GOTO 3610 
460© REH 

461© PRINT RT 17>“ZEILEN-NR,. 

";RT 0,2S; 

4320 XNPUT R$ 

433© IF R$ = ‘“’ THEN RETURN 
434© IF = THEN LET = 

4350 IF = THEN LET R^='‘-20'' 

4360 IF R$(l) <>*•+** RND 
*• THEN GOTO 4370 

46-62 IF R$(l)="+" THEN LET HSß (1^ 

4364 LET R$=STR$ (LR>URL R$) 

4366 IF URL R$<1 THEN LET = 

437© IF URL H$=© THE^4 RETURN 

4360 LET CL=10 

4390 LET PL=URL R$-2 

490© IF PL:0 THEN GOTO 494-E- 

4910 LET CL=CL4PL~1 

492© LET PL=:1 

49.30 GOTO 3610 
4940 LET H=PLHRX-9 

4950 IF PL>H THEN LET PL=H 
4960 GOTO 361 0 

5000 REH _ 

501© PRINT RT 0 .. 0xB$;RT 0.-0;^1^2 
SUCHEN = 1.. SRrtHELN =2'* 

5020 G05U6* 9000 

5030 IF R$<“1'* OR R$>**2*’ THEN RE 

TURN 

5040 LET FH=URL R$ ___ 

5050 PRX^4T RT 0.. 6.; “RUSGREE izESJHl I 
U = 1 ^ DRUCKER =2 
5060 GOSUB 9000 

5070 IF R$<‘*1“ OR THEN RE 

TURN 

50-30 LET DH = URL R$ ^ 

5090 PRINT RT 0.- 16;B$;.RT 
FRNGS3PRLTE (1 ; PCHRX;*')** 

5100 INPUT R* 

5110 LET Cl=l 

5120 IF R$F = '"" THEN GGfTö 51.50 

51.30 IF R$<"0©0’' DR H5>-‘999” THE 
N RETURN 

5140 LET C1=URL R$ 

5150 PRINT RT 0^1&;B$;RT 0 , 6 ; -*EN 


DoPRLTE ( CI.: ” PCHRX; *’ > “ 

5160 LET C.2 = PCHftX 
5170 INPUT R$ 

5130 IF = THEN GOTO .5:210 
5-190 IF R$<“0©©'‘ OR R$>''999” THE 
N RETURN 

5200 LET C2=URL R$ 

5210 PRINT RT 0^ie.:B$^RT 0,-6; -5U 
CHBEGRIFF;'* 

52-20 XNPUT 5$ 

52.30 IF LEN -5$^>02-01+1 THEN GOTO 
501© 

5-240 IF FM =2 THEN GOSUB 92©© 

5:250 GOTQ 

5410 LET ?R?LWp?L*R<^LnHX> 

5415 FOR H=Ci TO C2-LEN S$4-l 

5420 IP S$=Z*(Lh..H TO H-^LE^i S^-1 

) THEN GOTO 5540 

5430 NEXT H 

5440 LET LR=LR-H 

545© IF LH<=PLMfiX THEN GOTO 54-15 
5460 IF PH=2 THEN GOTO 566© 

5465 GOSÜS 9:200 
5470 PRINT RT 0*©.;S$ 

5430 PRINT “NICHT GEFUNDEN" 

5490 GO-5ÜB 9©©© 

5500 LET PL=PLHRX-9 
5510 LET CL=1© 

5520 GOTO -361 0 
554© REH 

5550 IF FH =2 THEN GOTO 

5560 IF DM=-2 THEN LPRXNT Z!^ (LR) 

5562 LET PC = :32 9£^XNT (H.- :32> 4-1 

5564 LET CC=H-PC 

5565 LET R$=3TR$ LR 
5570 GOTO 463© 

5530 REH 

5590 LET H4=l 
5600 REH 

5510 IF H4>PCHHX THEN GOTO 541© 
5613 LET H.3 = H4 4*.31 

5615 IF H3>PCiTRX THEr4 LET H3=PCH 
hx 

56-20 PRINT Z$(LR.,H4 TO H:3j 

564© IF DM=2 THEN LPRXNT Z^\Lh,H 

4 TO H3) 

5645 LET H4=H4-f-.32 

5650 XF PEEK 16442 >=4- RND LR <PLN 
RX THEN GOTO 561© 

5660 
5670 
5630 
5690 
5700 
700© 

701© 

7020 
7997 
7993 
7990 
300© 

3010 
3020 
00-3© 

6340 
3350 
3360 

12+256^(PEEK 16337-PEEK 1Ö413>-5 

0 

3070 PRINT RT 1©., © ; “FREI = “ ; FRE 
3030 RETU RN 
9000 REH UdUISS 
9010 PRUSE 4000© 

9020 LET R$=XNKE"/$ 

90-3© RETU RN 
9100 REH (fegsfg 
9110 CLS 


PRTl^4T 
GOS.Ue 900© 

GQSU3 9200 

IF Lh<PLHRX THEN goto 5410 
GOTO .5565 
REH 


LET -DEL=1 
LET F$ = “'- 
GOTO 271© 

RETURN 

REM 

LET R $ = X r4K E Y 5 

IF R$=““ THEN GÖTG 300© 

SCROLL 

PRINT R$,.COD^E A$ 

G DT O 3013 0 
REH 

LET FRE^PEEK 16335-PEE^; 164 
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9120 PRINT ■■DflTEINflHc. v” , y y, 

9130 INPUT r$ 

914-0 IF F$ = "“ THEN RtTUKN 
915© PRIHT ” - 3fiND flUr C'Ws EXrirsFR 
NG ETELL-EN” 


9155 PRIhST 
DER DRUECKEN“ 
916© PRINT 
R DRUECKEN” 
9170 INPUT fi$ 
STOP 
UQRD F$ 
GOTO 1© 

REH aata 

PRINT RT 


X■REC-TR5TE HM RECQR 


- NEU-EINE hH reONNE 


9175 

9130 

9190 

920© 

9210 

9220 


©. 


FOR H=1 TO 


©; 

11 


923© PRINT C$.: C»y C^y C$ 

924-0 NE.XT H 

9250 F'RINT RT ©.. 0; 

9260 RETURN 


Das Programm berücksichtigt selbstverständ¬ 
lich Schaltjahre, funktioniert aber nicht, 
wenn Geburts- und Berechnungsdatum inner¬ 
halb des gleichen Jahres liegen. 

Karl Hauer 


1© REM DIESES PROGRRHM ERRECH- 
KETDEN UCiCHE^^rRSEXr^ES BESTXHjTTEN 
DBTUMS, DBS DBTUM ttUSo WfiCH 
1752 SEXN. 


2© DIM USCTyl©! 

30 5_£T U3CX3 = 

4-0 EET US raj = 

50 EET UfC3>= 

60 EET US C4-) = 

7© EET US C5J = 

6 © i_ET U$t6> = 

9© t_ET US C7J = 

10© PRINT BT 0.. 

HHRES;" 

5T 1.._©;■■ 



ii© GOTO 20© 

115 INPUT U 

120 PRXNT RT ISy©;" 


Biorhyihmus 16K 


Dieses Programm ist ein Luxuriöses Programm 
zur Berechnung des Biorhythmus. 

Sie geben dazu das Jahr ein (wenn Sie 
wollen, können Sie statt 1940 auch nur 40 
tippen), ebenso den Monat und den Tag. Auf 
gleiche Weise geben Sie das Datum ein, für 
das die Kurve berechnet werden soll. 

Das Programm druckt dann den Wochentag, an 
dem Sie geboren sind aus. Nachdem Sie sich 
entschieden haben, welche Kurve der Compu¬ 
ter zeichnen soll, wird diese Kurve für den 
ganzen Monat ausgedruckt. Nachdem Sie sich 
auf der Kurve orientiert haben, Stehen 
Ihnen verschiedene Möglichkeiten offen: 
Einen neuen Monat einzugeben, das Programm 
zu beenden, eine andere Kurve auszudrucken. 
Sie können wählen, ob diese andere Kurve 
einzeln oder über die erste Kurve gezeich¬ 
net werden soll. Im ersten Fall drücken Sie 
den Codebuchstaben der jeweiligen Kurve, im 
zweiten Fall geben Sie zusätzlich das Plus¬ 
zeichen (+) ein. 

Mit dem Drucker können Sie weitere Features 
ausnützen: 

Mit "D" können Sie den Bildschirm kopieren, 
"D+" druckt nacheinander die drei Kurven, 
druckt alle drei Kurven übereinander aus 
und beginnt dann mit der Berechnung und dem 
Ausdruck aller Monate bis zum Jahresende. 


X95 GOTO 235 
23© XNPUT U 

205 XF U<i©e THE?'i i_ET U=U-j-X930 
2X0 XF U<i753 THEH GOTO 23© 

22© PRXNT RT ©.. 22.; U 
225 GOTO 24-© 

230 PRXNT RT iS.©:"DXE UR:-sRESBN 
G-RBE MUSS UEBER 17^523EXH." 

235 GOTO 115 

24.3 PRXNT RT 2.©;”EINGfiBE DES M 
ONRTS;" 


24-; 


25© 

25© 

273 


PRXNT RT 3..0.; -"i 


GOTO 323 
XNPUT M 

PRXNT BT 12.©;“ 


31© GOTO 330 
320 XNPUT M 

330 XF .M>i2 THEN GOTO 373 
34-0 IF M=3 TMEN GOTO 37© 

350 PRXNT RT 2.22jM 
360 GOTO 3S3 

37© PRINT RT 12.3,; "EXN URHR HRT 
^3 HONRTE." 

375 GOTO 263 

363 PRXNT RT 4-. ©. "EIMGRSE DES T 
RGES;” 

3S5 PRXNT RT^y©;”i 


39© GOTO 4-65 
4.30 XHP'UT T 
4-10 PRXI'T RT 16 y©-;" 

4." 


4-53 GOTO 4-70 
4-Se INPUT T 

4-7© XF T>31 THEN GOTO 53© 

•4-30 IF T>3@ RND tM=2 OR M=4- OR 
M=6 OR M=9 OR M=115 THEN GOTO 53 


4-9© IF T>29 RHD H=2 THEH GOTO 5 

3© 

495 IF T=a9 RND H=2 RND INT CU7 

4.) <>U74. THEN GOTO 53© 

500 XF T=e THEN GOTO 53© 

501 IF T=29 RND M=2 RND U.,'4.S0 = I 

NT tu 74-0©) THEN GOTO 51© 

535 XF T=29 RND H=2 RND J71S3=X 

?T CU7l©3> THEN GOTO 53© 
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510 PRXs^rr RT 4-.2a;T 

520 GOTO 54.0 

530 PRXHT RT 15.0:“ 


535 

54-0 

55© 

550 

57© 

53© 

590 

500 

510 

520 

53© 

5^0 

IST 

550- 


C0-5^ ClyH' 3 


GOTO 4-00 
L.5T K = IHT 
L.5T L.=U-K 
L.5T 0=H + 12^K 
l_5T P =1- 100 

L5T Z1 = XNT CP 74-) 

L.5T Z2 = XNT -P) 

L.5T Z3 = XHT K CS^L.) 74-) 

S^HT Z4. = XNT Ci3* 75) 

L5T Z=Z4.-^Z3-~Z2^Zi-i*T-l 
L.5T Z= IZ- CZ^XMT iZ7Z) ) ) ^1 
PRXHT PT 3^0; ''DBR UDCH5NTPG 

0$ CZ) 

PPX.NT PT 12.0. "FUBR BXOPV'TH 

HUS GE35 0- 
5Se P.PX.NT .PT 

HQRSE GEBE 1" 

57© XHPUT H 
530 GOTO 7-4© 

590 XNPUT H 
70© FOR F=© TG 37 
710 ÜNPEQT F.2 

72© U^4PEDT F.3 

73© HEXT F 

74-0 XF H=© THEH GOTO 1©©© 

75© XF H = 1 THE.N GOTO 7o© 

755 XF H=2 THEH CDPV 

755 GOTO 57© 

PRXNT 


PT 2© .« 3 j 
590 


14.^©;-FÜER HEUE EX 


77© 

730 

79© 

1000 

110© 

1101 

1102 

1103 

1104- 

1105 

1105 

1137 

110O 

1109 

nie 
1111 
1112 
123© 
121© 
1211 
1212 
1213 
12 14 
1215 
1215 
1217 
121B 
1219 
1223 
1221 
137© 
1390 
14.00 
14-10 
14-20 
14-3© 
1550 
155© 
1570 
1530 


GOTO 
CE5 
GOTO 
CE5 
D XH 
EET 
EET 
EET 
EET 
EET 
EET 
EET 
EET 
EET 
EET 
EET 
EET 
DXH 
EET 
EET 
EET 
EET 
EET 
EET 
EET 
EET 
EET 
EET 
EET 
EET 
CES 
PRINT -DEIN 
XNPUT Nä 
EET B3=0 
EET 32=T 
EET B1=H 
CE5 


10 

C 12 79' 
C 1) = “ 

C2) = 

;-1S (3) = 

Hä 14-) = 

Hä C5) = 

.Hä C5> = 

Hä {7) = 

Hä Co) = 

Mä C9> = 

Hä{10)= 
Hä eil) = 
Hä{12)= 
X 112) 

• 1) =31 



C2) 
C3) 
{4.) 
iS) 
X C 5 ) 
X i 7 ) 
X i 3 ) 
X C9) 


=23 
= 31 
=3© 
=31 
=30 
= 31 
=31 
=33 


X(10)=31 
X eil) =30 
X112)=31 


PRXHT 
P.PXrTr 
PRXhrr 
*;Mä iSi);' 
159© PRXNT 
1530 PRXHT 


“HPHE 


MPHE ?" 


Hä 


■ GEBURTSDPTEH 
B3 


B2; 


'FUER UEECHES OPHR SO 


EE XCH BERE -CHHE.H ? ’ 


1510 XMPUT C3 

1920 XP C3<100 THEH EET C3=03^19 
00 

1533 PRXNT C3 
1535 EET V=e 

154-0 PRXNT -UEECHES NONRTT-‘ 

1553 XNPE'T Ci 
155© PRXNT Ci 

1590 XF 31=12 THEN GOTO 175© 

170© EET X=e 

1710 XF XNT i33 74-) < > B3 74- THEN GO 
TO io30 

172© XF 31>2 THEN GOTO 100© 

1730 EET X=X+1 
1750 GOTO 150© 

175© EET X=3i-B2 
1770 GOTO 1S4-0 
1500 FOR 0=B1 TO 12 
loie EET .X=X-fXiO) 

1520 NEXT kJ 
153© EET X=X~B2 

154.0 XF iC3~33) <2 THEN GOTO 2©©© 
190© FOR 0=03-8^1 TO C3-1 
1910 XF XNT {J. *ä) =07*4- THEN EET X 
=X ^ 1 

192© EET X =X -f-355 
1930 HEXT O 

194.0 XF Cl = l THEH GOTO 207© 

1950 XF CI=2 THEN GOTO 2050 

2000 FOR 0=1 TO Cl-1 
201© EET X =X { O ) 

202© HEXT -O 

203© XF XNT {C3 74.) =C3 74 P.ND CI >2 
THEN EET X=X'i-l 
205© GOTO 2©7© 

205© EET X=X-r31 

2070 PRXHT "E>U 3 IST BIS 

; X; •• TRGE RET . “ 

210© EET Pl=X-XTTr {X723) ^23 

211© EET Pl=Pl*fl 

2150 EET 5i=.X~XNT VX725) ff2 5 

215© EET 51=31-5*1 

22©© EET xi=x:~xt'rr VX733) ä33 

2210 EET X1 = X1-5‘1 

222© PRXHT 

2225 XF V = 1 THEH GOTO 331© 

2250 PRXNT -UEECHE KURUE SGEE XC 
H ZEXCHHEH7- 
2255 RRii^rr 

2255 PRXHT Pi;" R S ";Xi; 

" X " 

225© PRXNT "FUER KQERPER GEBE 
EUER GEFUEHEGEBE Sj, EUER GEIST G 
EBERHDg EXH." 

2270 XNPUT Uä 


2230 

XF 

Uä="^" 

THEH 

GOTO 

25©0 

2235 

XF 

E?ä="P-l* 

" THEN 

GOTO 

2505 

229© 

XF 

Uä="3" 

THEN 

GOTO 

2500 

2295 

XF 

Uä = ’'3 + 

" THEN 

GOTO 

2505 

230© 

XF 

Uä="X" 

THEH 

GOTO 

270© 

23©5 

XF 

Uä = " x-f 

" THEN 

GOTO 

2705 

2310 

XF 

Uä = ’“l'‘ 

THEH 

GOTO 

7 50 

2315 

XF 

E^ä=''S^‘' 

THEN 

GOTO 

320© 

2320 

XF 

Uä="N" 

THEN 

GOTO 

1550 

2325 

XF 

Uä="D" 

THEN 

COPY 


2325 

XF 

Uä = "D-l* 

" THE.H 

GOTO 

330© 


2327 GOTO 2270__ 

233© PRXNT M 1 

234-0 GOTO 227© 

2500 GOSELS 300© 

2505 EET P=Paff2 

2505 PRXNT PT 1.lo."P" 

2510 FOR H=P-j*2 TG P^&3 

2520 PEOT H-P .22-1*15^SXM iiM-2)72 

3ff.=>X) 

253© HEXT H 

2535 XF V=1 THEsN RET'ORM 
254© GOTO 227© 
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2000 GOSU3 3000 
2305 LET 

2S0S PRXNT RT X,XS;"E“ 

2S10 FOR H=S+2 TO 3-1-03 

2020 PL-GT N -3 , 22 -r XO XH ? ^ H -2 > ^ S 

a^px« 

2030 NEXT N 

2S3S XF V=1 THEH RETURN 

204-0 GOTO 22*70 

2T00 G03UB 3000 

27*05 EET X = XX^2 

2700 PRXMT RT X.20:"X" 

27X0 FOR N = X-!-2 TG X-f-ö3 

2720 PEOT H-X,22+Xe^SXH ?(N-2>^3 

3^PX) 

2730 HEXT N 

2735 XF V=X THEN RETURN 
274^0 GOTO 2270 

3000 CE5 ^ 

3005 PRx^n^ BT X0^0; "0~2-4--o-a-a- 
2 —4. —1> —S —S~2 —4- —O —3 * 


3010 

PR XMT 

RT 

3.0; * 

3©Xi 

PRXNT 

RT 

4-^0; 

30X2 

PR XNT 

RT 

5.0; " -ä-" 

30X3 

PR XMT 

RT 

5.0; " -s^" 

30X4. 

PRXNT 

RT 

7,0; 

30X5 

PR XMT 

RT 

5.0."+" 

30 XB 

PRXNT 

RT 

2 : 0 ; 

XI,0; 

3020 

PRXNT 

RT 

302 X 

PR XMT 

RT 

X2. 0 ; ‘ 

3022 

PRXhrr 

RT 

X3.0 ; " 

3023 

PRXNT 

RT 

14., 0 ; " - " 

302^ 

PRXNT 

RT 

X5,0; 

3025 

PRXr4T 

RT 

Xo . 0 ; " - ' 

3025 

PRXNT 

RT 

X7,0; 

3030 

PRXNT 

RT 

0, 0 ; "S XGR'y'THHUS 

ER 

304-0 

M$ 

PR XNT 

RT 

x,0; "FUER "; HS 

; C3; 
3023 

PR XNT 

RT 

12,3; "!3=K0ERPER 


GEFUEHE ..il=:GE X5T , " 

3X00 PRX?'4T RT 20^ 
ERSCHREXBEM.ENDE 
3ji05 PR XMT RT 2X.0;"HEUE 
=^11-HUR .NEUES HONRT=®-' 

31X0 RETEIRM 
3200 CES 

3205 PRXMT "ENDE" 

3205 PRXNT 

32X0 PRXNT "NEUE BERECHNUNG 
""RUN"" EXHEEXTEN-" 

3220 3TGP 

EET V=X 
GOS'UB 2500 
CGPV 

GOSUB 2500 
COPV 

GOSUB 2700 
COPV 

GOSUB 2505 
GOSUB 2505 
COPV 

EET CX=CX-?-X 
XF C1=X3 THEN STOP 
GOTO X&2-0 
EX?'4GRBE DES URHRES : XQ47 


FU 


^UEB 


EXMGRBE 


HXT 


3300 

33X0 

3315 

3320 

3325 

3330 

3335 

334-0 

3350 

3355 

33B0 

3370 

33S0 


exhg 




DES HONRTS: 


*wpa5M=<= 


DER UOCHENTRG IST 
FUER BXORYTHMU3 GEBE 0 
PUER NEUE EXNGRSE GEBE X 
MRHE; HRUER KRRE 

30 


GEBURTSDRTEfM 


124 T 


FUER UEECHES URHR SOEE XCH SERE- 
CHr4EM‘? 

1252 

HOHBT7 

10 ■_ __ _ 

DU BIST BXS Xi£23/ TRGE 

RET . 

UEECHE KURUE SOEE XCH :Z^TCHHHH7 
12 P 2 3 2 X 

FUER KOERPER GEBE g . FUER GEFUEHE 
GEBE g.. PUER GEXST GESERNC« EXN- 

3IQRVTHHUSFUER HRUER KRRE 
F'UER X232P 


-i- 



-»■ 


3-2-4.-5-3 



I—3 — 4. —B —o —2 »4-—5= —o —g— 


^KOERPER .g=3EFUEHE ..g=GEXST .. 

, ÜEBER5CHRE XBEN . EMDE =§ 
NEUE EXMGR3E=S..NUR HEUES HGMRT = 

BXORV~rHHUS FUER HRUER KRRE 
FUER X0S2 S- 



e-2-.4.-5-8-g-^ 4. -0 -3 -a-2 -4. -B^^o -S- 



?^=K3ERPER .g=GEFUEHE .s='3^XST . 

^ ÜE3ER3CHRE XSEM • EMDE ^43 
NEUE EXNGR3E=S/NUR NEUES MONRT= 
3 XORV'THHUSJFUER HRUER KRRE 
FUER 1232 X 
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NEUE EIHQRBE=@.NUR HEUES HO? 
3XORVTHHUS EUER HRUER KRRi_ 
EUER 13S2PSX 



^KOERPER,g=GEFUEHE7S=GEX3T 
. UEBERiaC-HRE xBEN . END 
NEUE EXHGRBE=S/HUR HEUES MO 


Eliza 16K 


Ein echtes Superprogranm, das normalerweise 
auf viel größeren Computern läuft. 

Der ZX 81 versteht damit Ihre Eingabe und 
kann darauf reagieren. Das heißt, es ist 
möglich, mit Eliza eine Konversation zu 
führen. Eliza ist - wie Sie bemerken werden 
- ein guter Psychiater und geht auf Sie 
ein. Natürlich bewegt sich die Konversation 
durch die Grenzen des ZX 81 in gewissen 
Grenzen, aber immerhin kann man mit diesem 
Programm beweisen, daß Computer etwas 
Intelligenz haben. 

Um nun Eliza das Sprechen zu lernen, geben 
Sie zuerst das Programmlisting ein. An¬ 
schließend geben Sie die Codezahlen der 
ersten Tabelle ein. Wenn also der Computer 
nach der ersten Zahl verlangt, sehen Sie 
auf der Tabelle in der ersten Zeile nach 
und tippen die zweite Zahl der zweiten 
Tabelle (1), drücken Newline und geben Sie 
dann die zweite Zahl (3) gefolgt von New¬ 
line ein. 

Wenn Sie so alle 38 Zeilen eingegeben 
haben,tippen Sie GOTO 9000. Sodann tippen 
Sie die Schlüsselwörter ein, Wörter, auf 
die Eliza dann reagiert. 


Wenn Sie das dann haben, kommen die Antwor¬ 
ten von Eliza dran. Sie werden durch GOTO 
9210 eingetippt. Sie müssen allerdings nach 
Eingabe einer Antwort wieder GOTO 9210 
tippen, um die nächste Antwort eingeben zu 
können. Auf eine Schleife wurde hier ver¬ 
zichtet, da die Fehlerquelle zu groß wäre. 
Nach Eingabe aller nötigen Details können 
Sie mit Eliza plaudern, indem Sie GOTO 160 
eingeben. 

Die Konversation wird deshalb in Englisch 
geführt, weil die deutsche Syntax zu schwer 
zu entschlüsseln ist und ein entsprechender 
Algorithmus bedeutend mehr Speicherplatz 
benötigen würde. 

Wenn Sie wollen, können Sie den Wortschatz 
von Eliza ändern. Sie geben nach obigem 
Schema einfach andere Schlüsselwörter und 
Antwortsätze ein. 


1 

1 


2 

4 

2 

3 

6 

4 

4. 

6 

4 

5 

10 

4 

3 

14 


*7 

17 


a 

20 

2 

Q 

22 


10 

25 

3 

11 

28 

4 

12 

28 

4 

13 

32 


14- 

35 

c; 

15 

40 

9 

16 

40 

Q 

17 

40 

9 

16 

40 

9 

12 

4© 

9 

2 0 

40 

9 

21 

49 

2 

22 

51 

4 

23 

55 

4 

24 

59 

4 

25 

63 

1 

2t> 

63 

•1 

27 

64 

CT 

w 

23 

69 

5 

29 

74 

2 

30 

76 

4 

31 

80 

•-a- 

■w* 

32 

83 

“7 

33 

90 

3 

34 

93 

£= 

3t> 

99 

7 

36 

116 

3 

37 

113 


56 

106 

7 

1 

CRN 

YOU 

2 

CRN 

I 

3 

YOU 

RRE 

4 

YOURE 

3 

I DONT 

s 

I FEEL 

"7 

WHY 

DONT 

3 

UHY 

CRNT 

Q 

RRE 

YOU 

10 

I Cl 

RHT 

11 

I RN 
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12 

IM 

13 

YOU 

14 

I URNT 

IS 

UHRT 

10 

HOU 

17 

UHO 

10 

UHERE 

19 

UHEN 

20 

UHY 

21 

NRME 

22 

CRUSE 

23 

50RRY 

24 

DRtHM 

20 

HELLO 

20 

HI 

27 

MRYBE 

23 

^40 

29 

YOUR 

30 

RLURYS 

31 

THINK 

32 

RLIKE 

o3 

YES 

34 

PRIEND 

35 

COMPUTER 

30 

ELXZh 

37 

MO NEY 

33 

NO KEY FOÜND 

1 

RRE 


UERE 

3 

VOU 

4 

YOUR 

5 

lUE 

0 

IM 

7 

YOU 

1 

RM 

o 

URS 

3 

I 

4 

MY 

S 

YOUUE 

0 

YOURE 

7 

Mt 


1 DONT VOÜ BELIEUE 

£ PERHRPS VOÜ WOULD 

RBLE TO* 

ö YOU URNT HE TD BE 

4- PERHRP5 YOU DONT 


THRT 


i_XKE 

RBLE 


wniY i 


X CFlNtf 


TO SE- 

TOit 

Üie 


DO YOU URNT TO ßE HBL.E TO ^ 


6 UHRT HRKES YOU THJNK I RMie 


.• DOE5 IT PLEfVSE YOU TD DEL JEU 

E I RM* 

O PERHRPS YOU UOÜLD L.JKE TO EE 

*5 DO YOU SONETXNEß UXBH YOU UE 

RE4f 

10 DONT YOU RERLUV^ 

11 UHY DONT YOU* 

12 DO YOU UISH TO BE RBLE TO* 

13 DOES THRT TROUBLE YOU 7* 

14- TELL ME MORE RBOUT SUCH PEEL 

INGS . 

15 DO YOU OPTEN PEEL* 

16 DO YOU ENUOY PEELING* 

17 DO YOU RERLLY BELIEUE 1 DONT 

* 

IS PERHRPS IN GOOD TIME J UILL* 


19 DO YOU URNT ME TO* 

20 DO YOU THINK YOU SHOULD OE 
RBLE TO* 

21 UHY CRNT YOU* 

22 UHY RRE YOU INTERESTED IN UH 
ETHER QR NOT I RM* 

23 UOULD YOU PREPER XP I UHERE 
NOT* 

24 PERHRPS IN YOUR PhNThSJES I 
RM * 

25 HOU DO YOU KNDU YOU CRHT ^ ‘ 


20 HRUE YOU TRIED 7 

27 PERHRPS YOU CRN NOU* 

2S DID YOU CÜME TO HE BECRUSE Y 
OU RRE* 

29 HOU LÜNG HRUE YOU BEEN* 

30 DO YOU BELXEUE IT IS NORMRL 

TO BE* 

Ul DO YOU tNUöY tstINu* 

32 UE UERE DISCUSSING YOü~-NOT 
ME. 

33 OH., I* 

34 YÖÜRE NOT RERLLY TRLKING RBO 

UT ME., RRE YOU 7 

35 UHRT UOULD IT MERN TD YOU IP 

I GOT * 

30 UHY DO YOU URNT* 

37 SUPPOSE YOU SOON GOT* 

33 UHRT UOULD IT MERN TO YOU IP 

YOU GOT* 

39 I SOMETIMES RLSO URNT* 

40 UHY DO VOÜ RSK 7 

ÖUESTION INTEREST 

YOU 

4-2 UHRT RNSWER WOUt-D P1_EPSE YOU 
TE H05T ? 

4-3 UHRT DO YOU TH INK T 

44 RRE SUCH OUESTIÜNS IN VQ?f MI 

ND OFTEN •? 

THRT YOU RERUi-Y URNT 

I U KNOU 

46 HHUE VOU RSKED RNYOJTE ELSE 7 


4? 

5 

46 

YOU 

49 


RSKED SUCH QUESTION 
UHRT COMES TO MINE> Ü.HEN 
NRHE-s'dQNT INTEREST HE- 


RBOUT NRHES-PLE 

Hoc UiS m 

^2. li. THRT THE RERL PERSON ? 

TO HIND OTHER RERSONS COME 

53 DOES THRT PERSON EXPL.RIN RNY 

~ THING ELSE 7 

54 UHRT OTHER RERSONS MIGHT HER 

E BE 7 

55 PLtRSE DONT RPOLOGIZE. 


56 RPOLOGIES RRE NOT NECESSRRY. 

57 UHRT FEELINGS DO YOU HRUE UH 

EN YOU RPOLOGIZE 7 

56 DO.NT BE SO DEFENSIVE. 
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59 UHRT DOE5 THhT DhEhH 5 UGGE5T 107 UHRT GOES THRT 5Ü&GEST TO YO 

TO Yüü •? Ü 7 

50 DÜ YOU DRERH OPTEN 7 


51 UHRT PERSON5 RPPERR IN YDÜR 
DRERMS 7 

59 RRE YOU DISTüRBED BY YCfUR 
DRERMS 7 

53 HOU DO YOU DÜ...PLERSE STRTE 
YÜUR PROBLEM. 

54. YOU DONT SEEM QUITE QERTRIN. 

55 UHY THE UNCERTRIN TOJ-4E ? 

56 CRNT YOU BE MORE POS IT XUE *? 

57 "YOU RRENT SURE ? 

53 DONT YOU KNOU 7 
59 UHY NO* 

70 DONT SRY NO;IT5 RLURY5 SO NE 
GRTIUE 

71 UHY NOT 7 

72 RRE YOU SURE 7 

73 UHY NOT 7 

74. UHY RRE YOU CONCERNE 

MY * 

75 UHRT RBOUT YOU OUN* 

76 CRNT YOU THINK OP R 
EXRMPLE ? 

77 UHEN 7 

73 UHRT RRE YOU THXNKXK 

79 RERLLY RLURY5 7 

50 DO YÜÜ RERLLY THXNK 

51 BUT YOU RRE NOT SURE YOU* 

02 Dü Yüü DOÜBT YOU* 

53 IN UHRT URY 7 


GEST YOU 


ü 

87 


SEE 7 

COÜLD THERE 
CONNECTIONS 
HOU 7 


90 RRE YOÜ SURE 7 
I SEE. 

I UNDEPSTRND. 

UHY DO YOÜ BRING UP THE TOPX 


108 I SEE 

109 IM NOT SURE X UNDERSTRHD YOU 
PÜLLY. 

110 COME COME^ELÜCXDRTE YOUR 
THOÜGHTS 

111 CRN YOU ELRBORRTE ÜN THRT 7 

112 THRT IS QÜXTE INTERESTING. 

113 UHY DÜ YOU HRUE PROBLEMS UIT 

H MÖNEY' 7 

114. DO YOÜ TH INK THRT MONEY Io 
EUERYTHING 7 

115 RRE YOÜ SURE THRT MONEY IS T 

HE PROBLEM 7 

116 X THXNK UE URNT TO TRLK RBOU 

T Yüü,NOT ME. 

117 UHRT5 RBOUT ME 7 

IIS UHY DO YOÜ RLURYS BRING UP M 


91 

92 

93 

C OP PRIENDS 7 

^4- DU Y UÜR PH^ENDU U*U^r%Y Y UU 7 

95 Dü YÜUR PRIENDS PICK ON YOU 

96 RRE YOU 6 URE YOU HRUE hMY 

FK'IEr4D5 ■? _ 

9? DO YOU IMPOSE ON YUÜR FRicND 

^ 'y _ 

96 PER'HflPS YOUR LOUE FOk FKi=ND 

5 U O R RI £ S Y i-i Ü . 

99 DO COMPUTERS WORRY YOU ? 

100 RRE YOU TREKING RBOUT ME IN 
P px IC U L R R 

101 RRE*YOÜ PRIGHTENED BY HRCHIN 

6 

102 DO YOÜ MENTXON COMPUTERS 7 

103 DO MRCHX^4ES HRUE TO DO UXTH 

YOUR PROBLEM 7 

104- DONT YÜÜ TH INK COMPUTERS CRN 
HELP PEOPLE 7 

105 UHRT IS IT RBOUT HRCHINES TH 

RT UORRIES YOU 7 

105 SRY.. DO YOU HRUE RNY PSYCHOLO 
Gl- CRL PROBLEMS 7 



Y 3 

r^RME 



1 

REH 

ELXXR 

RBOUT 

2 

REM 


3 

REH 

TD STRRT 


4- 

REH 

GOTO 160 


5 

REM 


^ECIFIC 

3 

DIM 

S (38) 


9 

DIM 

U C38> 


10 

DIM 

KS(38^15) 

OP 7 

20 

DIM 

RS (ilS,. 50) 


30 

DIM 

TS (7.. 10) 

\ 7 

4-0 

DXH 

US(7.10) 

DU* 

70 

DIM 

R C30) 

80 

DIM 

N t38) 


90 

FOR 

X=1 TÖ 38 


95 

CLS 


iU SEE 

100 

PRINT X; 

105 

INPLnr SCX) 

: t'y sug 

110 

PRINT ■* *\;SCX.L: 

115 

XNPUT L 

. DO YO 

110 

PRINT L 


120 

LET 

R <X) =S CX) 

SDME 

125 

LET 

N CX) =S CX) FL 


130 

NEXT X 


135 

CLS 


?E . 

14.0 

GOTO 3©©0 

150 

SLOU 


155 

PRINT "Hi.. I RH 


ELL HE YOUR PROBLEM" 

170 SLOU 

171 XNPUT IS 

172 XF IS="" THEN GOTO 170 
175 PRST 

177 CLS 

180 LET XS=" 

230 IP NOT I$=PS THEN GOTO 260 
235 CLS 

24.0 PRINT "PLER5E DONT REPERT V 
OURSELP" 

250 GOTO 170 

270 REH SUCHEN DES ERKENNUNGSUO 
RTES 

290 LET S=0 

300 FOR K=1 TO 38 

305 XF S>0 THEN GOTO 

310 LET US^KS4K> f TO URL KSfK> i 


14 TO ) ) 




315 

LET 

D$ = I$ 



320 

GOSUB 6000 



330 

IF 

NOT R THEN 

GOTO 

340 

33i:i 

LET 

S=K 



334 

LET 

T=R 



336 

LET 

FS=US 



340 

NEXT K 



365 

IF 

NOT S THEN 

GOTO 

370 

366 

LET 

K=S 



367 

LET 

L=T 



360 

GOTO 400 
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3- ?0 L.ET K=3S 

GOTO 5“?0 

3Se R£^? KONOUGRTXONS PHR^e 

4- 10 l-ET C$ = " •*(L.+L-EN TD > 

4S0 FOR X=1 TO 7 

4-30 OFT X$=T$CX? ( TO URI. XJ C 

9 TO ) ) 

4-3S i-ET Y$=U^CXJ C TO URE US CX) ( 
9 TO ) ) 

4.4-0 FOR L = 1 TO L.EN CS 
4.50 XF E-i-EEN VS>EEN CS THEN GOT 
O 51© 

4-S0 IF CS CE TO E^EEN Y$^l? <:=YS 
THEN GOTO 51© 

4-90 EET CS=DSC TO E-1 ? ^-XS PCS f E 
EEN YS TO 

4-95 EET E=E*^EEN XS 
500 GOTO 540 

510 IF E-f-EEN XS>EEN C$ THEN GOT 
O 54-0 

520 XF CS CE TO E ^EEN XS~X.^ 

THEN GOTO 54-0 

525 IF XS = ” YÖU ” RND E > rrEEsN CS 
-5 THEN GOTO 1©©© 

530 EET CS=C$C TO E-1) +YSCE-f 
EEN XS~1 TO y 
54-0 NEXT E 
550 NEXT X 

555 XF CSC2j^='’ ** THEN EET CS=CS 

C2 TO ? 

560 REH RNTUORTSRTZ FTND^EN 
560 EET FS=RS CR CK.^ 3 f TD URI RS C 
R CKT > (4-9 TO > J 
590 EET R CK> (K) +1 

595 IF R(K}>NCK> THEN EET R{K3 = 

5 (Kjf 

593 PRINT IS 

599 PRINT RT 2©., 0., 

60© IF FS (EEN FSJ=“«^'’ THEN GOTO 

615 

605 PRINT FS 
607 EET PS=:XS 
61© GOTO 170 

62© PRINT FSl TO EEN FS-1),CS 
630 GOTO 607 

1000 EET CS = CSC TO E-l.^:^-'* HE - 
1010 GOTO 555' 

200© FOR 1=1 TO 36 

2010 EPRXNT X;TRB 4.;S(I);TRB 6; N 
(I) -S(X? ^1 
2020 NEXT X 
2030 EPRirTT 

204-0 FOR 1 = 1 TO 36 

2050 EPRXNT X;TRE 4-;KSiX. TD 13.1 

2060 NE.XT X 

207© FOR 1=1 TD 7 

2060 EPRXNT X;TRB 4-;TS(X^ TO 6.1 

209© NEXT X 

2100 EPRXNT 

2110 FOR 1=1 TO 7 

212© EPRXNT J;TRB 4-;USCl^ TO B.i 

213© NEXT 1 

214-0 FOR X = 1 TO 116 

2150 EPRXNT X..TR6 4-.RSCX. TO 4-6) 

216© NEXT X 

216-5 EPRXNT 

217© EEX5T 

2160 STOP 

7130 ?^OR N = 3 TÖ 7 

714-0 CES 

715© PRINT ‘KEYUORD N; " *7“ 

7160 INPUT XS 

7170 EET TS(N>=XS 

7160 EET TS(N)=TS(N) ( TO 6) 4-STRS 
EEN XS 

7190 PRINT TS(N> 

7200 NEXT N 
TO10 RETURN 


3000 REH R=1NSTR CDS.*US> 

3010 XF EEN US=© THEN GOTO 609© 

302© EET R=1 

6030 EET Y=EEN US 

604© XF Y.VEEN DS THEN GOTO 6090 
3050 XF US^DSCR TO Y) THEN RETUR 
N 

3060 EET R=R-M 
3070 EET Y=Y4-1 
300© GOTO 6040 


309© EET R=© 

3095 RETURN 

900© REH ERDEPROGRRHM 

9010 CES 

902© PRINT "ENTER 33 KEVUORDS" 
9030 FOR N=1 TO 36 
9040 CES 

9050 PRINT "KEVUORD ";N;" 7" 

9060 INPUT XS 
9070 EET KSCN.1=XS 

906© EET KS CN.i =KS CN.1 C TO IS.l ^STR 
S EEN XS 

9090 PRINT K S C N) 

9100 NEXT N 
911© STOP 
9120 GGSU6 7130 
9130 FOR N=1 TO 7 
9140 CES 

9150 PRINT "KEYUORD ";N;" 7" 

9160 INPUT XS 

9170 EET USCN)=IS 

913© EET US CN> =US CN) i TO 3> -fSXRS 
EEN XS 

9190 PRINT USCN.^ 

9195 NEXT N 
9200 STOP 

921© PR XrTT "hNTUORT NUHHER 7" 
9220 INPUT N 

923© PRINT "RNTUORT ";N.":" 

9240 XNPLrr XS 

9245 CES 

9250 EET RSCN)=I$ 

926© EET RS CN.» =RS CN) ( TO 46:i -f-STR 
$ EEN XS 

9270 PRINT RSCN) 

9300 STOP 

9900 SRUE "EEXZ®' 

9910 GOTO 160 
9999 STOP 


Mehrwerlsteuer¬ 
berechnung 1K 

Mit Hilfe dieses Programmes kann ent¬ 
weder die Steuer aus einem Nettopreis 
ermittelt oder der Zuschlag zu einem 
Bruttopreis ermittelt werden. Es ist dazu 
nur notwendig, den Preis mit bzw. ohne 
Steuer sowie den Steuer satz einzutippen. 
Kommastellen werden gerundet, was sich 
jedoch ohne das Entfernen der Integer- 
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funktion (“INT") in den Zeilen 105 und 125 
ändern läßt. 

li PRINT " MM lYi H f T 

IS PRINT 

20 PRINT STEUER INKL. 

2S PRINT *'2) OHNE STEUER ** 

•30 INPUT R$ 

3S IP >•*!•' RND THEN 

GOTO 30 
4.0 CLS 

50 PRINT "PREIS ("OHNE" RND 

R$ = "2"i ("HIT" RND R$ = "I"Jk;" STE 
UER*?" 

SS INPÜT R 

SO PRINT R 

SO PRINT "STEUERRRTE 

SS INPUT S 

GO PRINT B 

GS PRINT 

lOO IP Ri = "-1" THEN GOTO 120 

10S LET C=INT (RrfS.) X100 

110 UET D=R+C 

115 GOTO 14.0 

120 LET D-R 

12S LET C==XNT ( (R/IOO.^ 

130 LET R=D-C 

14.0 PRINT "PREX-3 EXCL , . " ; R 

3.4,^ Tf.j-r •' 

ISO PRINT "PREIS’INKL,:5 

ISS PRINT 

ISO PRINT "NOCHEINHRL?" 

ISS INPUT R* 

170 IP R$="" THEN GOTO ISS 

17S IP R$<1)=:"U" THEN RUN 

ISO IP R$^l^s:>"N'* THEN GOTO l^OS 

PREIS MIT .STEUERT 
150 

STEUERRRTE T 
13 

PREIS EXCL.tlSl 
STEUER :IG 

PREIS INKL.tlS© 

NOCHEINHRLT 

PREIS OHNE STEUERT 
220 

STEUERRRTE T 
18 

PREIS EXCL.:220 
STEUER :3G.e 

PREIS INKL.:25G.S 

NOCHEINMRLT 


Samurai 16K 


Vielleicht kennen Sie das Spiel "Othello", 
das auch unter dem Namen "Reversi" bekannt 
ist. 


Dabei spielen zwei Spieler auf einem 8x8 
Felder großen Spielbrett gegeneinander. 
Abwechselnd setzen die beiden Spieler einen 
Stein Ihrer Farbe auf das Brett. Jeder 
Spieler darf alle Steine umdrehen, also zu 
einem Stein seiner Farbe machen, die 
zwischen zwei seiner Steine eingeschlossen 
sind. 

Dieses Spiel sorgt für die Brettverwaltung, 
setzt Steine, dreht Steine um, überprüft, 
wer gewonnen hat usw. Es ist sozusagen 
computerisiertes Spielbrett für zwei Perso¬ 
nen, die gegeneinander spielen. 

Probieren Sie einfach ein bißchen, die 
Feinheiten des Spiels werden Ihnen schnell 
vertraut sein. 


10 REH "SRH” 

20 DIM K{ IS.. 24.3 


25 

DXH T$C23 


100 

PRXf'fT fiT 



POR 1=2 TO IS 

120 

PRINT RT 

I,.G; " 




JL ^ 

?4EXX X 


14-0 

PRX?'IT RT 

X7.,G; 

IFJÄ 

FÜR 1=3 TQ 15 


PRXt-rr RT 

X.. G.; " 

170 

NEXT 1 


180 

PRJ.HT RT 

2 , S ; ” 

RT 1 

S .3; "6";RT 

3.3: 

;RT 12..3; "3" 

; R t ii 

.. 3; " 

1"; 


1G0 

PRXHT RT 

2.. 25.: 

7";rt S., 2S;"S" 

; RT S 

.. 25; 

••4.".;RT 12, 

2S; "3 

"; RT 

16,2S; ''i“ 


200 

FÜR X=0 TQ lo 

210 

PRXHT RT 

Z.. 10.; 


STEP 2 



•ir-r* rrr-i ***•. 

•Z> 1- ^1- £=. __ 

_ 




RT 

s; "2' 


10. 

; .RT 


"7" 
3,1 ” 


3Ti 
"R 

B RT X ..14..; " C " .; RT X . 1; 
13; "E".; RT X.. 20; "F" ; RT 
T I..24.;"H"; 

220 NEXT I 

250 LET K {10., 15.'» =2 

251 Ldi Kl'3,13) =2 

252 LET K (B;, ISA -1 

253 LET K(10.. 13)=i 
255 LET X=2 


; 

RT 

:P 

X 


RT 
,, *, 

14. 

IS 
a-r 


5- 

; RT 10 
..2S.; "2 


2; " 
r-; R 


257 

LET 0=2 



26© 

PRXHT RT 3^15;" " 

;j=iT e. 

13; " 

X":PsT le, IS; “X" : fiT le. 

13 : " •• 

* 

270 

LET :R = 10 



230 

LET B=12 



290 

LET 0=14 



300 

LET D=15 



310 

LET E=13 



320 

LET F=20 



330 

LET G=22 



340 

LET H=24 



36© 

LET S$="X" 



370 

LET 0=2 



330 

*j?UTO 430 



400 

IF Q=2 THEN LET S 



405 

XF Q = 1 THEN LET S 



450 

PRXNt'^RT '3727^-><^: " 

T X.: '' " 

.: RT 

S.. 23; 




430 

XF S*="X" T.HEH PR 

INT .RT 

21., 

7.; "ES 

^ ZIEHT SPIELER 

S$; 
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4.S5 IP S$ = " THEN PRINT PT 31 j, 

7.: "ES ZIEHT SPIES_ER O".; 

500 INPUT T$ 

501 PRINT RT 19.©;" 

PT 2©" 

502 IP T$<1)>="R" RND T$C1)<="H 

■' P-ND T$(2):>="i" P.ND T$C2>. ^=”8” 
THEN GOTO 503 

503 PHINT RT 19.. S.: "TIFP-PEHL.SR" 

RT 2©..0.; "KORRIGIEREN" 

504- GOTO 50© 

_50S IP 5$="X" THEN PRINT RT 11^ 

ü.. T$; RT 11 29; " •• ; 

509 IP S$ = ” " THE.N PRINT RT 11. 

''.;rt 11.. a9.;T$; 

LET M=URL <T$(23.1 
L ET N =URL f T $ f1; ) 

LET H=i3-2itM 
IP Sä="X“ THE.N LET 0=2 
IP 3 5=" " THEN i_ET 0=1 

IP K CH.. N.i < >G THEN PRINT RT 

"GEHT".;fiT IS ^ "NICHT" ; 

IP K{M^N> :i0 THEN GOTO 4.00 
PRI.>-n- RT IS..©;" ";.R-r IT 


2 

510 

520 

525 

530 

54-0 

550 

17 . 0 ; 

550 

570 

Ub 

590 

700 

710 

720 

730 

74.0 

750 

760 

770 

1000 


IP 0 = 1 T.HEN LET P =2 
XP^ 0=2 TTtEN EEl- .= = 1 
LET HR=G 

let .hl =© 

LET UO=0 
LET UU=© 

LET DOR=0 
LET DOL=0 
LET DUL=0 
LET C'UR=0 

1.*= ,N<14- THEN GOTO 150© 

O OR KCH.N-2:4=0 


1010 IP KCH.N-a.X 

THEN GOTO 1500 
1020 1.*=^ K (H . N -2:» 

C THEN LET HL=1 
1030 IP HL=1 THE.N GOTO 150© 

104-0 IP N<16 THEN GOTO 1500 

1050 IP K(H.N-2:i=P RND K{.H,.N-4.;< 

P R^4£> KCH,N-6.i=Gi THEN LET HL =2 
1050 IP HL=2 THEN GOTO 1500 

1370 IP N <13 THEN GOTO 

1080 IP KlH,M-2)=P RND 

P RND K.CM,N-S.1=P RND K 
1HEN LET HL=3 
1090 IP HL=3 THEN GOTO 

N<20 THEN GOTO 
K { H .. N=P RND 
C H.. N -S>. =P- RND K C H . .N-3 > =P 
.. N-10} =Q THEN LET’.HL =4- 
Hi_=4. THEN GOTC4 153© 

N-;22 THEN GOTO 1530 

K (H.. N-2J =P RND K CM . N-4. J 

CM..N-6J=P RND KCM..N-S>=P 
P RND KCH,N-12.i=0 


1100 IP 
1110 IP 
P R.ND K 
RND K CM 
1120 IP 
1130 IP 
114.0 IP 
P RND K 
HMD KCM.,nLi0.C 
IHEN LET HL=5 
1150 IP ML=S THE.N 
1150 1!- N-;24. THEN 


=P RND K(,M.N-4.> 


153© 

K CM..M-4.;i : 

=Q 

1530 

1500 

K CM .N-4-;4 4 


GOTO 

GOTO 


1530 

1500 


1500 IP .N>14. THEN GOTO 2030 

1510 IP KCH.N4-2;=P .RND K(M.N+4.)- 

P RND K C>M.. N + 6.C =P R.ND KCM.N+3j=P 
RND KCM.. N + 10)=O THEN LET ’ HR =4- 
1520 IP HR =4. THEN GOTO 2030 

1530 IP N>12 THEN GOTO 2030 

154-0 IP KCM..N+2.v=P RND K(M.NT-4..i = 

P RND KCM.N+6J=P RND K(M.N+SJ=P 
RND K CM.,.N + 103 =P RND KCM,N4.12C=0 
THEN LET ,HR=5 

1550 IF HR=5 THEN GOTO 2030 

1550 IF N>10 THEN GOTO 2030 

1570 IP KCM.. N+2:i=P R.ND KCM..N+-4.) = 

P RND K£M,N + 6.1=P R.ND K{H.N+3j=R 
RND KCM.. N+10)=P RHD K C M . N-ä-lE.» =P 
RND K CM.. N + 14-.> =0 THEN LET HR =6 


N) =0 


2000 XE M<6 THEN GOTO 2500 
2010 IE KCM-2..N)=© OR KCH-i 

THEN GOTO 2500 
2020 IP K (M-2..N> =P RND K CM-4. .N> = 
Q THEN LET UO=l 

203© IP UD=1 THEN GOTO 2530 

234-0 IF M-J.3 THEN GOTO 2503 

2050 IP K(H-3,N}=P .R.ND KCM-4-..NJ = 
P RND K CM-6.. N.4 =Q THEN LET UO=2 
2060 IP UO=2 THEN GOTO 2530 

2070 IP M<10 THEN GOTO 2530 

2050 IP K(M-2,N.C=P RND KCM-4-,H;« = 
P RND KCM-5,N.C=P RND KvH-S-,m=S 
THEN LET UO=3 

2090 IF UO=3 THEN GOTO 2530. 

2100 IP M<12 THEN GOTO 253© 

2110 IP KCM-2..N.C=P RND KCM-4-.N.» = 
P RND KCM-6.N.C=P RND KCM-3,NJ=P 
HND KCM-10^N)=O THEN LET UÖ=4- 
2120 IF UO=4. T}-!EN GOTO 2S30 

2130 IF M<14. THE.N GOTO 2500 

214-0 IP K{M-2.,N>=P RND K{M-4..N:' = 
P RND K CM-6 .. N> =P RND K (M-S . Nf =P 
HND KCM-10..N)=P RND K CM-12’-N> =-£« 
THEN LET UO=5 

2 150 IP UO=S THEN GOTO 253-3 

2150 IP M<16 THEN GOTO 2530 

2170 i,i= Kl.H-2..N>=P RND KCM-4-.N> = 
H R.ND K £M-S,NJ =P RND K CM-S.NJ =P 
HND KCM-13.,N}=P RND KC«t-12,N>=P 
RND K CM-14..,N.'i =0 THEN LET UO=6 
2500 IP H>i2 THEN GOTO 300© 

2510 IP K CM-i-2.. N.1 =0 OR K CM-j-2 . N.i =0 

THEN GOTO 3©©© 

2520 IP KCM + 2,M.1=P RND K (M-J-4.. NIi = 

O THEN LET UU=i 

2530 IP UU=1 THEN GOTO 3330 

254-0 IF H;. 13 THEN GOTO 3030 

2-550 Xe K (H-+2.. N> =rP RND K CM-1-4. . NJ = 

P RND K (M-J-5.. N.1 =0 THEN LET UU=2 

256© IP UU=2 THEN GOTO 300© 

2570 IP M>S THEN GOTO 3003 

258© I.«^ K(M-l-2.N)=P RND K(M+4.Nj4 = 

P RND K N.1 =P RND K^M-^S.N■}=0 

THEN LET L»U=3 

2590 IF UU=3 THEN GOTO 3330 

2600 IP M>S THEN GOTO 300© 

2610 IP K C.H-J-2..N.» =P RND K C,N-i-4. . NJ = 
P RND KCM+6 .. N'J=P BND K(M + S,r-i.i=P 
RND K.CM-H0.N)=S THEN LET UÜ=4. 
252© XE DU =4- THEN GOTO 300© 

2630 IP M;.4- T.HEN GOTO 3303 


264-0 IP KCM + 2.,N.l=P RND K(M+4..N) = 
P RND K(M+&..N)=P RND K(M+3..Ni=P 
RND K CM-j-13yN> =P RND K sH-tIä .frt.C =3 
THEN LET UU=5 

25-50 IF VUsS THEN GOTO 3000 
2560 IP M>2 THEN GOTO 3030 
2670 IF K CM-I-2.,N) =P RND K C.H-ä-^ = N) = 
P RND KCM4-6.N)=P RND K CM-»-S .N.i =P 
BND KCM-fi0,N)=P RND K fM-H2 , N> =P 
BND K CM-H4.., N) =0 THEN LET UÜ=5 
300© IP M<S OR N>20 THEN GOTO 35 

es 

3010 IP K CM-2 / .N■^2) =© OR K£M-2.N-h 
2> =0 THEN GOTO 350© 

3020 XE K (M-2 ,H•^2) =P RND KCM-d-.N 
=0 THEN LET DOR = l 
3030 IP DOR = l THEN GOTO 350.0 
304-0 IP M<S OR N>18 THEN GOT43 35 
00 

3-05© IP K tM-2 ,N+2.> =P R^^D KCM-4-.M 
-I-4..1 =P RND K (M-6.N-#-6.1 =G THEN LET 
DOR=2 

3060 IP DOR=2 THEN GOTO 3500 
3070 IP M-il0 OR- N>2S THEN GOTO 3 
500 

3©S0 IP K (M-2.,N-)-2.> =P BND KlM-4-.,N 
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+ 4) =P RHD K tH-&.,N+&J =P PND KiM-S 
.i\-4-S) =0 THEN L.ET t>OR=3 
^090 IF DOR=3 THEN GOTu 3:300 
3100 IF M<12 OP N>14 THEN GuIÖ 3 
500 

3110 IF K (M-2 ,N-J-2> =P RND .K(t-)-4-, N 
+ 4.\ =P PND K =P PHD KiH-S 

.M+3;=P P»'5D K fM-10,N^10> =0 THEN 
Let D0R=4. 

3120 XF OOP=4 THEN GOTO 3503 
313© IF H<14. DP N>i2 THEN GOTO 3 
500 

314-0 IF K (M-2 ,N+2:» =P PND K(H—4.. N 
-h4J =P RND K (H-S ^ N-i-S) =P -PNC- K iH-S 
.M + SJ =P PHD K {H-l©,N:f-10.l -P RND -K 
■(M-12 . N-rl2> =0 THEN EET DOP =5 
3150 XF DOR=S THEN GOTO 3500 
3150 XF M<16 OR N>10 THEN GOTO 3 
500 

3170 IF K (M-2., N+2> =P PND K(f-1-4-.. N 
-fl.l =P PND K (H-S ,N-j-5.i =-P PND KiM-3 
=P BND K VH-l© ,N+10.l =P PND K 
(M-12 .N-rl2.' =P PND K {M-l'4.,N-j-a4?- =0 
THEN LET DOR =S 

3500 IF H>1£ DP N<14 THEN GOTO 4 
00 © 

3510 IF F. (H + 2 ,N-2J =© OR KfM+2.,N- 
S)=0 THEN GOTO 400© 

3520 IF K {M + 2.. N-2) =P PND KlM-s-4., N 
-4.\ =0 THEN LET DUL = 1 
3530 IF DLfL = l THEN GOTO 43©3 

3540 IF H>10 DR N-JlB THEN GOTO 4 
000 

355© XF K lH + 2,M-2 5 =F PND KiH4-4.. N 
-4) =P RND K U-1+5 ,N-&.> =G THEN LET 
DLfL-2 

3560 IF DDL=2 THEN GOTO 40©S 

3570 IF M>S OR N<IS THEN GOTO 40 
00 

S5S0 IF K (M + 2 . N-2) =P PND K (M+4.. N 
-4) =F PND K (M+S / N-S.) -F PND K -(M+S 
.. M-S)=0 THEN LET DUL =3 
3590 IF DUL=3 THEN GOTO 4000 

3500 IF M>e OR N<2© THEN GOTO 40 
00 

3510 IF K (H+2.-N-2) =P PND KlM+4.. N 
-4) =P PND K (M+SN-S) =P PND K iM+S 
.. N-S)=P BND K (M + 1© ^ N-i0) =3 THEN 
LET DUL=4 

352© IF DUE^4 THEN GOTO 43©S 

3530 IF N>4 OR N<22 THEN GOTO 40 

00 

3540 IF K(M+2^N-2)=P PHD KCM+4^N 
-4) =P PND K (M+6^N-S.) =F P.ND K(M+S 
N-S) =P PND K (M + 10 ., N-10) =P PND K 
(M + 12 . N-12.1 =Q THEN LET DUL =5 

3650 XF DUL=5 THEN GOTO 4000 

3560 IF M>2 OR N<24 THEN GOTO 40 

00 

3570 IF K (M+2N-2) =P PND K(M+4,N 
-4) =P PND K {M+S..N-6.) =P PND KUi+S 
.N-S)=P PND K(M+a0/N-10)=P PND K 
■(M + 12 .N-12.) =P PND K (M+14^ N-14) 
THEN LET DUL=S 

400© IF Mi6 OR N-Ji4 THEN GOTO 45 
00 

4010 XF K (M-2/N-2) =0 OR K(M-2..N- 
2) =0. THEN GOTO 450.0 

4020 XF K (M-2 .N-2) PND KCr-1-4.. N 

-4)=3 THEN LET DOL=l 

4030 IF DOL=l THEN GOTO 4500 

4040 XF M<S OR N<16 THEN GUiU 45 

00 

4050 IF K (M-2 ,N-2;i =P P.ND K U4-4.,M 
-4 i =P RND K (M-e ,N~S) =B THJ=N LET 

DOL=2 _ _ 

406.0 IF DOL=2 7 HEN GOTO 4ot!U 
4070 IF M<10 OR N<1S THEN GuiO 4 


500 

40S0 IF KtM-2,N-2)=P PND 171-4 ..N 
-4) =P PND K (r5-S -M-6.) =P PND K <M-5 
.. N-S)=0 THEN LET DDL =3 
409© IF DOL=3 THEN GOTO 4500 

4100 XP M<12 OR N<20 THEN GOTO 4 

500 

4110 IF K(M-2.N-2)=P P.ND K(M-4., N 
-4) =P RND K {M-6 .-.N-6) =P PND Kt.M-S 
.. N-S)=P P.ND K (M-ie . N-10) =3 THEN 
LET DOL=4 

4120 IF DQL=4 THEN GOTO 450© 

4130 IF M<14 G.R .N<22 THEN -GOTO 4 

500 

4140 I.F K {M-2...N-2) =P PND ,Kf.M-4/N 

-4) =P RND K (M-ö ,N-S) =.>=■ PND K(H-S 
yN-S) =P RND K (M-10yN-ieR =P RND K 
(M-12 .N-12.) =Q THEN LET DOL=5 

415© DDL =5 THEN GOTO 450-0- 

4160 IF Miie OR N<24 THEN GOTO 4 

500 

4170 IF K i M -2 . N -2.1 =P PND K (M -4 .. N 
-4) =P RND K (M-6.. N-6) =P PND K(M-S 
. N - 3 ) =P PND K ( H - 10 , N - 10 =.=■ .PND K 

(M-12 ,M-12.) -P PND K (M-14 ..N-14:i =0 
THEN LET DOL=6 

4500 IF M>12 OR N>20 THEN GOTO 5 


■000 


4510 I,- K (M + 2..N+2) =0 OR K(M+2.. N + 

2)=0 THEN GOTO 5000 


452©_ 
+ 4) =U 
4530 
4-54-0 


XF K {M + 2 ,N+2.) =P .PND K(H+4.. N 
THEN LEt DUR=1 
IF DUR = 1 THEN GOTO 500-© _ 

-rrs' tiC“ N) \ ^ Ä GOT O ir« 


000 
4-55© 
•f4.> =P 


IF K(M+2,N+2)=P PND K!;M+4.. ^4 
P.ND K •( M + B N + 6 > =3 TiIEN LET 


DUR =2 

4560 I." D-ÜR=2 THEN GOTO 5000_ _ 

4570 XF M;>3 OR N>1S THEN GuTu 50 


4530 XF K (M + 2 .N+2.) =P PND KCH+-4,N 
-i-4) StP RND K (M + S.. N+S) =.= PND KiH+S 
N + 3) =0 THEN LET DU.R =3 ^ _ 

DU.R=3 THEN GOTO 5000 
N>S DR N>14 THEN GOTO 50 


4590 
4600 
00 

4610 I.F 


XF 

IF 


K. (.M + 2 / N +2 ) =P P.ND K ( M + 4 ^ N 
+ 4) =P PND K i:M+6.. N+S) =P P.ND KCH+S 
.N+S>=P PND K (M + 10.. N + 10) =3 THEN 
LET DUR=4 

4520 IF DUR =4 T.HE.N GOTU 500U 
4630 IF M>4 OR N>12 THEN GOTO 5Ö 
00 

4640 IF K(M + 2/N+2)=P PND K(M+4.. N 
+ 4.) =P RND K (J-5 + 6/N + 6.) =P PND KCM+6 
.N+3)=P RND K (M+10.. .N + i0) PND .K 
r-M + 12 , N + 12) =0 THEN LET DU.R =5 
4650 i.'^ DU.R =5 T.HEN GOTO 5000 

4660 IF M>2 OR N>i3 THEN GOTu 50 
30 


4670 IF K (H + 2 .. M +2.) =.P PND K. .M 74., N 
.^4) =P PND K (M+6..N+&.) =F PND Kul+S 
.N+S)=P PND K VH + IG ...N + IS) ==P Hr-L- K 
■(M + 12 .N + 12) =P RND K (M + 14., N + 14) =Ö 
THEN'LET DUR=6 

5000 LET TO=HR+HL+UU+UO+DuR+DUL+ 
DUR+DUL ^ 

5010 IF TG=0 THEN PRINT HT 1/.. 0..' 

"GEHT”;.PT IS ^ 0; ''NIC.HT”.; 

5020 IF TG=0 THEN GOTO 400 

5100 FOR 1=0 TO HL 

5110 PRINT PT M.. N-2 + I.; 3?.; 

5120 LET K (M.. N-2+I) =0 

5130 NEXT I 

5140 FOR 1=0 TO HR 

5150 PRINT PT M.. N+2+I;S$; 

5160 LET K (M,M+2 + I.^ =0 
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517© NEXT J 
5180 FÜR X=0 TO UD 
5190 PRINT RT 
5200 L.ET 
5210 NEXT I 
5220 FÜR 1=0 TO UU 
5230 PR JNT Rf H-r2it-X 
5240 L-ET K 
5250 NEXT X 
5250 FÜR X=0 TO DOR 
5270 PRXNT RT H-2^X 
5280 LET K(M-2*l.N-8- 
5290 NEXT X 
5300 FÜR X=0 TG DUl^ 
5310 PRINT RT H-?^2itI 
5320 LET K «:H-i-2*I .,N- 
5330 NEXT I 
5340 FÜR 1=0 TO DOL 
5350 PRXNT RT M-2*X 
5350 LET KVH-2itX,N- 
5370 NEXT I 
5350 FÜR 1=0 TD DUR 
5390 PRThiT RT H^2*J 
5400 LET K VH-t-2 :t-J . N-f- 
5410 NEXT I 
5500 IF 5$ = ''X** THEN 
5510 LET G=G+TGS-1 
5520 LET X=X~TO 
5525 PRXNT RT 3^2; 'V 
8., 26.: ''O : 0,1 '' 

5530 XP X-rO=S4 TH£ZN 
5540 GOTO 400 
5S00 LET X=X:-fTO-»-l 
5510 LLT 0=0—»G 
t>oi5 PKXNi Rs *3..-2.: **. 
8.28; ”0; “ ; O.: ** *•; 

5520 IF_X+0=64 THEN 

5530 GO i O 400 
5-300 PRXHT RT 


.♦ Ns $ 

=g 


N ->-2 ii- X ; 
2Ä-XJ1 =Q 


S$ 


.. N~2*I.: S$ 
2 X 5 =G 


^N-2*X.; S 
2ifX.> =Q 


.,N+2^X; 3$ 
2ifX} =G 

GOTO 5600 


X; X.; " RT 
GOTO 5800 

X : ”X.; RT 

GOTO 5800 


5305 xr X.>0 PRXNT PT 7^2^ "1 

5aig ~‘ XF >:<€•' THSN^PPXHT PT 7.2'S.; 

ip' X =6‘~THEN‘ PRINT PT £1.. 7; 

* * # R E M I S * ^E- * "; 


Eine Publikation von CHIP 


89 



Technik 


Temperatur- 
umurandlung 1K 


Mit diesem Programm können Sie in 
Celsius angegebene Temperaturen in Fahren¬ 
heit umrechnen. Umgekehrt geht es genauso. 

Das Programm paßt übrigens nur deshalb 
in IK, weil der Text mittels zweier 
Zeichenketten gekürzt wurde. Die beiden 
oft im Text vorkommenden Wörter "Celsius" 
und "Fahrenheit" werden in A$ und ß$ ge¬ 
speichert. So kann man auch längere Texte 
bequem in IK unterbringen. 


1 LET B$ = *'CELS1US" 

2 LET C$ = "FRHRENHEJT'* 

S CLS 

7 PRINT "TEMPERRTURUMRECHNUNG 

» * 

10 PRINT 

15 PRINT IN ••;C$ 

20 PRINT ••2) IN 

25 INPLrr RS 

30 IP RND R$-:>‘'2“ THEN 

GOTO 25 
35 CLS 

4-0 IF RS = ”1*‘ THEN GOTO 8© 

50 PRINT ••TEMPERRTÜR IN 

'p •• 

55 INPUT R 

50 PRINT R 

55 PRINT 

70 PRINT "DRS SIND ; lR-32) 

9;” GRRD “jB* 

75 GOTO HO 

80 PRINT ••TEMPERRTÜR IM ••;B*;‘' 

•• 

85 INPUT fi 
©8 PRINT rt 
©5 PRINT 

100 PRINT "DRS SIND ; (««©x'SJ +3 
2;" GRRD" 

105 PRINT C$ 

110 PRINT 

115 PRINT “NODHEINMRL?" 

12© INPUT R$ 

125 IF CODE fl $=4-7 THEN RUN 


TEHPERflTURUMRECHNUNG 

1) CELSIUS IN FAHRENHEIT 
2> FAHRENHEIT IN CELSIUS 

TEMPERATUR IN CELSIUS? 

25 

DAS SIND ■?-? GRAD 
FAHRENHEIT 

NOCHEINMAL? 

TEMPERRTURUMRECHNUNG 

1? CELSIUS IN FAHRENHEIT 

2) FAHRENHEIT IN CELSIUS 

TEMPERATUR IN FAHRENHEIT? 
77 

DRS SIND 25 GRAD CELSIUS 
NOCHEINMAL? 


Stopp-Uhr 1K 


Die ZX81-Stoppuhr wird per Tastendruck 
gestartet. Dabei wird in Zeile 20 und 30 
die Systemvariable FRAMES auf 32767 ge- 
poket. Von dieser Zahl wird jede Sekunde 
50 abgezogen. Während des Zähl Vorganges 
erscheint auf dem Bildschirm ein $-Zei- 
chen. Die Uhr wird durch einen weiteren 
Tastendruck gestoppt. Zeile 70 pokt nunden 
Wert von FRAMES und Zeile 80 rechnet ihn 
in Sekunden um. Die ZX81-Stoppuhr hat eine 
Auflösung von 1/500 sec. 

Um die Stoppuhr in einem Programm zu 
benutzen, braucht man nur die Zeilen 
20,30,70 und 80. Man sollte aber beachten, 
daß die Uhr maximal bis knapp 11 Minuten 
zählt. 

Jochen Hartig 

10 IF INKEV*="" THEN GOTO 10 
20 POKE 164.3e.. 255 
3© POKE 164-37.. 127 
4.0 PRINT 

50 IF INKE-j^S-i TMEM GOTO 50 

60 IF INKEy*="" THEN GOTO 6© 

7© LET R=PEEK 16435-rPEEK. 164-37 
if-256 

8© PRINT (32767-R) .-' S©; " SEC" 

©0 IF INKEY$<>"" THEN GOTO 9© 
10© RUN 


BlechahvricMung 1K 


Dieses Programm berechnet Blechab¬ 
wicklung für Rohrbogen mit folgenden drei 
Kenngrößen: 

A = Krümmungsradius 
B = Rohrradius 
C = Öffnungswinkel 

Die Schritte 40 bis 70 lassen die Auf¬ 
teilung des Umfangs nicht größer als 100 
Millimeter werden, dadurch wird ein 
harmonischer Verlauf der Blechabwicklung 
erreicht. Das Vorgenannte ist aus den drei 
Beispielen auf der Druckerliste er¬ 
sichtlich, wo für B die Werte 200, 375 und 
750 Millimeter gewählt wurden. 

Weitere Schritte wie die Gewichtsbestim¬ 
mung des ganzen Knies und die Bestimmung 
der Schweißnahtlänge sind möglich. Da der 
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Zusatzspeicher (16 K 
handen ist, sind sie 
gramm berücksichtigt. 


Ram) noch nicht ver¬ 
nicht in diesem Pro- 

Paul Ambrosini 


ISS -3QSQ0 
10*7 - 4-0020 

32 TEILE ZUTS.BGIOTS 
UMFANG = 2356.1Q4.5 


Z-B. R = 1000 B=-700 C = 1S 


R=KRUEMMUNGSRRDJUS 


B=ROHRRRDIUS 

C=OEFFNUr4GSUXMKEL 

5 LPRINT -HOEHEN'* 

10 INPUT R 

20 INPUT B 

30 INPUT C 

4-0 IF B<=2S0 THEN LET X=22,S 
50 IF B>=251 RNI> B < =500 T.HE.N L 

ET X=11.25 

00 IF B>=501 RMD S?=750 THEN L 

ET X=7.5 


70 IF B>=75i RMD 5^=1000 THEM 
LET X=5.625 


80 LET D=R~B 
90 LET E=TRN \Cyl80tfPIJk 

100 LET F=DitE 
110 LET G=B^E 

120 FOR N=90 TO O STEP -X 
130 LET H=SIN lMyi80^PI> 

14-0 LET I=B-H 
150 LET U=I^E 
100 LET K=F+2^G-U 
170 LPRINT URL *'K" 

180 NEXT N 

190 FOR M=90-X TO O STEP -X 

200 LET L=COS lH7l80^PI^ ffB 

210 LET 0=B-L 

220 LET P=Ot«^E 

230 LPRINT URL "P-i-F" 

24-0 NEXT H 

250 LET O=3S0yX 
200 LET R=Xy3S0^PIitPifB 
270 LPRINT URL "O";" "TBILE Z 

Ü*\;URL ••R** 

280 LET S=2^B^PX 

290 LPRINT *'UMFRNG = "; URL ""5" 


HOEHEN 
4-68.91109 
4-07.19183 
4.02.0034.8 
4-53 . t«lL577 
44.1.9873 
427.38298 
410.05071 

2QQ- 

344185398 
319 - 90190 
294.17998 
207.94919 
241- 7184 
215.93043 
io a. - caAij-jLi 
107.40825 
145.01134 
125.84707 
108.5154 
93.911087 
32.284012 
73.834909 
58.700555 
60.987298 

48 TEILE ZUGS.174771 
ÜMFRNG = 4712.389 


Benzinverbrauchs- 


Z .B - 


R = 1©0© B=200 r: = lS 


HOEHEN 
321.53903 
317-45975 
305.842931 
283.45714 
207.94919 
24.7.44125 
230.05545 
218.43804 
214.35935 

10 TEILE ZU78.539S10 
ÜMFRNG = 1250.0.371 


Z.B. R=1000 B=375 C=15 


rechnung 16K 


Sie werden staunen, wieviel Benzin Sie 
wirklich verbrauchen. 

Mit diesem Programm können Sie Ihren Ver¬ 
brauch leicht selbst errechnen und mit den 
Werbeaussagen der Autohersteller ver¬ 
gleichen. 


HOEHEN 
36S . 4-3014- 
366.4-994-3 


300.78140 

0 

PRINT 

351.49605 

X0 

PRINT ^ 

333.99995 

ND 

323.77342 

20 

INPUT R 

306 - 40159 

25 

PRINT “1 

287.55205 

30 

PRINT 

267.94919 

RND 7 

> «t 

248.34033 

40 

INPUT B 

229.4908 

45 

PRINT “1 

212.12497 

RND = 

B 

190.S9S43 

50 

PRINT "i 

:.S4.40234 

N GETANKT 

175 - 1109 

00 

INPUT C 


3Hff?EM ROROI 

NUNG XNUERBRRUCHSREC-H 


WELCHER KILOMETERSTR 


KILOHETERSTRND = "J R 
HEUTIGER KILOMETERST 


HEUTIGER KILOHETERST 
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6S PRXNT “GETRNKTe L.ITE:R ; C 

©0 L.ET e=rB-R 

Q0 PRINT '"GEFRHReN WURDEN ”;E; 
KILOMETER“ 

10© LET F=C©-R)/i0© 

IS© LET G=C/F 
ISS PRXNT 

130 PRINT -‘UERBRRLtCH = ** ; G; LI 
TER100 KK*" 

13© PRINT 

14.0 PRINT “WIEUIEL WURDE BEZRHL 
T 

13© IMPUT 5 
155 PRINT 

150 PRINT “BEZRHLT WURDEN S;“ 
SCHILLING“ 

1Z0 LET X=S.^F 
1Z5 PRINT 

130 PRINT “DIE KOSTEN LIEGEN BE 
I “;X;“ OES PRO 100 KM.“ 


3© 

L5T 

X = 1 

©e 

LHT 

X=X4‘1 

ISS 

L5T 


11© 

LET 

s= c 

115 

LET 

SrrXMT 154-©.5i 

la© PRX^^^ u;trb if4^^;5;TRB 

1©?;© 


130 IF X < =© THEN GOTO 0© 


Widerstands- 


WELCHER K ILOHETEftSTRND '? 
KILOMETERSTRND = leee 
HEUXIGER KIl_OMETERS-nRND '? 
HEUTIGER KILOHETERSTRND = 150© 
WIEU1EL.E LITER WURDEN GETRNKT '? 
GETRNKTE LITER =■ 1@@ 

GEFfiHREN WURDEN 50© KILOMETER 

UERBRRÜCH = 20 LITER.^IO© KM 

WIEUIEL WURDE BESOHLT *? 

BEZRHLT WURDEN 1100 SCHILLING 

DIE KOSTEN LIEGEN BEI 220 OES 
PRO 100 KM. 


berechnung 16K 


Für alle Elektronikbastler, die bisweilen 
vor der Frage stehen, welchen Wert ein 
Widerstand mit zwei roten, einem gelben und 
einem goldenen Ring hat. 

Der ZX 81 berechnet nach Eingabe der 
Farbringe den Wert. 

1 RE« FRRBKODE FUER UIDERSTRE 

NDE 

15 RE« RQRRI 19620512 
20 RE« FRRBEINGRBE DEN WIDERST 
RNDSWERT 

25 RE« DIESES PRQGRR«« ERRECH= 
NET RN HRND DER FRRBEINGRBE DEN 
WIDESTRNDSWERT 
39© PRINT 

4.00 PRINT "EINGRBE DES FRBCODEs 
. NRCH UEDE« ERRBRItiG NEW LXNE D 


Bremswegkurve 16K 


Sie geben die BremsVerzögerung ein und das 
Programm berechnet die Bremswegverzögerung. 

Der Faktor für die Bremsverzögerung ist 
beispielsweise von der Beschaffen! 

Straße abhängig. 

2 RE« RORRI 
5 PRINT 

1© RE« BRE«SWEGKURt.*E 
2© PRINT '"EINGRBE EINER 
UER BREMS= UERZOEGERUNG E 
SEC *^*2" 

30 INPUT B 

4.0 PRINT "BREMSWEGUERZ. 
"«.^SEC^tta” 

60 PRINT "K«.'« « © I 

I 200” 

55 PRINT ” 

70 LET U=© 

75 LET 5=0 


RUECKEN” 

41© PRXNT 

415 PRINT "IST KEINE TOLERRNZRN 
GRBE UORHRN=DEN.. GEBE NEIN EIN,D 

,H, 2© PRO= ZENT.” 


420 PRINT 

421 PRINT 
425 PRINT 
425 PRINT 

MULTXPLI= 

RNZBRND" 


*RUFBRU des CODES*" 

•1 UND 2. UERTPRRR,3. 
KRTIQN58RND, 4.TOLER 


eit 

der 

4.35 

PRXNT 




44.© 

XNPUT 




441 

PRXNT 

R$ 



44a 

INPUT 

B$ 



443 

PRINT 

6$ 



444 

XNPUT 


ZRHL F 

445 

PRXNT 

c$ 

IN 

MX 

445 

XNPUT 

D$ 



44T 

PRXr4T 

D* 



45© 

LET 

RB= 

B 

455 

CL5 




45© 

GQSUB 

541 


10© 

4?© 

LET R= 

X 



4S© 

LET X$=B$ 



4a© 

G05UB 

541 



50© 

LET B= 

X 



51© 

LET 
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Serien- und 
Parallelschaltung von 
WidersNinden 16K 


S3© 

54.© 

54-1 

1 

54-2 

55© 

T© 

55© 

5T0 

55© 

© 

5*^© 

50© 

51© 

52© 

1 © 

530 

54-0 

55© 

55© 

551 

552 

553 
554. 
57^0 
5se 
52© 
"7©© 
TI© 
T2Q 
•730 
T4.© 
T50 
T5S 
TT© 
TS© 
T20 
S©© 
51© 

©a© 

53© 

Sil© 

55© 

550 

6T© 

55© 

200 

210 

215 

215 

22 © 


GQ5UB 54.1 
L.5T C=X 
GOTO ST© 

IF X$-"SIL.B5R' 


TH5N GOTO 55 


XF X® = “GOL.D" THHN GOTO 553 

IF X$ = *’SCHUflRZ*' THFH GOTO 5 

XF X$ = ‘’BRRUN‘’ THEN GOTO 62© 
XF X$='*ROT” THEN GOTO Tl@ 

XF X^="ORRHGE" THEH GOTO T3 

XF X$="GEL.B*' THE^^ GOTO T5© 

XF X$="GRUEH" THEH GOTO TT© 
XF THEH GOTO T2© 

XF X$ = "UXOLETT" THEN GOTO S 

XF X$='*GRRU’' THEN GOTO 830 

XF X$ = *'UEXSS'- THEN GOTO 85© 
PRINTT ''UNGEEIGNETE EXNGRBE” 
STÖR 

EET X=-2 
GOTO 55© 

EET X=~l 
GOTO 55© 

EET X=© 

GOTO 55© 

L.ET X=:l 
GOTO 55© 

L.ET x=:a 
GOTO 55© 

EET X=3 
GOTO 55© 

L.ET X=4. 

GOTO 55© 

EET X=5 
GOTO 55© 

EET XcrO 
GOTO 55© 

EET X=T 
GOTO 550 
L.ET X=S 
GOTO 65© 

L.ET X=2 
RETURN 

EET a$=:5TR$ iR> 

EET Rfi=5TR* 

EET U=URE 
L.ET U=U«^10^^ 

PRIWr 

XF Di="SXEBER'" THEN GOTO QT 


0 

23© XF D$="GOED" THEN GOTO 22© 
235 XF D$="ROT" THEN GOTO 1005 
24.0 XF D$ = "NEXN" THEN GOTO 1010 
25© PRINT “UNGEEIGNETE EXNGRBE“ 
255 PRXNT 


Das Programm berechnet den Gesamtwert von 
Widerständen, die entweder in Serie oder 
Reihe geschaltet sind. 

Das Programm erklärt sich selbst. 

10 REH DIESES PRQGRRHH BERECHN 
ET FOLGENDES 

S0 REH SERIEN UND RRRRL-L-EL. UID 
ERSTRENDE 

30 REH RORRI IGSl 

4.0 DXH RC1001 

50 REH BEGINNE 

50 PRINT 

65 PRINT "SERIEN ODER PRRRLLEL 
SCHRLTUNG" 

66 PRINT "UON OHHSCHEN UIDERST 
RENDEt^” 

6*? PRINT "BITTE UM EINGRBE" 

6S PRINT "MRX. G STELLEN EINSC 
HLIESZLICH" 

6G PRINT "DEZXMRLPUNKT RLS WER 
T ZULRESSIG" 

70 PRINT "TIPPE 1 FUER PRRRLLE 
L .5CHRLTUNG" 

71 PRXNT "TIPPE 3 FUER SERIEN 
SCHRLTUNG" 

S0 INPUT C 

G© XF C=1 THEN GOTO 260 
10© PRINT 

110 PRXNT "WIE UIELE WXDERSTREN 
DE7" 

ISO INPUT T 
13© FQR 1=1 TO T 
135 SCROL-L. 

14© PRXNT “UXDFRSTRNO“; X: 

15© XNPUT 

155 L.ET UXD=R(X> 

150 PRXNT RCX> 

17© NEXT X 
15© L.ET F=0 
12© FOR X=rl TO T 
20© L.ET F=F+CRCX)) 

21© NEXT X 
215 CL-S 
220 PRXNT 

230 PRXNT “SUHHE SERIEN UIDERST 
RENDE = "OHH" 

240 PRINT 
250 GOTO 70 

25© PRXNT “UXE UXEUE UXDERSTREN 


25© 

STOP 




DET“ 


970 

PRXNT ü^“ie 

PROZENT TOL. 

»A 

270 

XNPUT T 

275 

PRXNT 




25© 

FOR 1=1 TO T 

280 

GOTO 1©20 




22© 

PRXNT “UXDERSTRND“ ; X; “ =^“ ; 

22© 

PRXNT U.. "5 

PROZENT 

TOE . “ 


300 

X?4PU1^ R c r J 

225 

PRXNT 




305 

EEl^ UXD==R 

1S©0 

GOTO 1028 




310 

PRXNT R£X1 

1005 

PRINT U,'‘2 

PROZENT 

TOE . “ 


320 

NEXT X 

1005 

PRX^ 




33© 

EET F=© 

1007 

GOTO 102© 




340 

FOR X=1 TO T 

1© 10 

PRXNT U.. “2© 

PROZENT TQC* 

KB 

.350 

EET F=F4* C1,^R CXI ) 

lOll 

PRXNT 




35© 

NEXT X 

102© 

PRX^rr “GEBE 

1 FUER 

EINE 

ERN 

37© 

EET Frrl.'F 

EUTE 

BERECHNUNG 

EIN“ 



35© 

PRXNT 

1021 

PRINT “GEBE 

EINE 0 

FUER 

DRS 

-32© 

PRXNT “SUHHE PRRREEEE UXDER 

PROGRRHH ENDE EIN“ 



STRND = “ . F .. “ QHH“ 


1022 XNPUT E 

1023 XF U=1 THEN GOTO 32© 

1024 STOP 
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40© PRXNT 
405 CES 
41© GOTO 7© 
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Technik 


Winkelumrechnung 1K 


Berechnet Sinus, Cosinus und Tangens eines 
eingegebenen Winkels. 


10 REM UINKEt-UMRECHNUMG 
ae UET P=3-14.159 

aa PRINT "EINGRBE DES UXNKELS" 
as INPUT R 
30 PRINT 

4.0 PR INT •• GRRD “ , ** RRD IRND’‘,”SXN 
US","COSINUS","TfiNGENS” 

50 t_ET BsPitP.'-iee 

50 PRINT R,B,SXN CB1,COS (Bl,S 
XN CB> ^COS tB> 

■70 RR TNT 
S0 PRINT "eNDE” 

90 STOP 

EI.NGRBE DES UINKEUS 

RROXfiND 
COSINUS 

0.174.53278 
0.9S4.S0773 


ENDE 


GRRD 

SINUS 

TRNGEN5 

10 

0.17364-803 
©.17632683 


ASN 

ATN 

CHR$ 

CODE 

COS 

EXP 

INKEY$ 

INT 

LEN 

LN 

NOT 

OR 

PEEK 

PI 

RND 

SGN 

SIN 

SQR 

STR$ 

TAN 

USR 

VAL 


Sinus im Bogenmaß 

Arcustangens 

ASCII-Zeichen-Ausgabe 

Code-Umrechnung 

Cosinus 

e-Funktion 

Eingabe über Tastatur 
Ganzzahl 

Länge eines Textes 
Natürlieher Logarithmus 
Logische Negation 
Logisches ODER 

Beschreiben eines Speicherbytes 
Konstante V 

Erzeugen einer Zufallszahl 
Vorzeichen einer Zahl 
Sinusberechnung 
Quadratwurzel 

Ausgabe einer Zeichenfolge 
Tangens 

Aufruf eines Maschinenprogramms 
Ausgabe einer Zahl 


Programmierbefehle: 


Befehlsscrix des ZX 81 


+, - Addition, Subtraktion 

*, / Multiplikation, Division 

** Potenzierung 

<,7 Kleiner, Größer 

<= Kleiner gleich 

>= Größer gleich 

<> Ungleich 


Rechenfunktionen: 

ABS Absolutwert 

ACS Arcussinus 


CLEAR 

Löschen der Variablen 

CLS 

Löschen des Bildschirms 

CONT 

Fortfahren des Programms 

COPY 

Ausdrucken des Bildschirms 

DIM 

Festlegen eines Variablenfelds 

FAST 

Fast-Modus 

F0R...T0 

Wiederholung 

STEP 

Schrittweite 

GOSUB 

Unterprogramm-Aufruf 

GOTO 

Unbedingte Programmverzweigung 

IF...THEN 

Bedingte Programmverzweigung 

INPUT 

Eingabe von Daten 

LET 

Wertzuweisung 

LIST 

Auflisten eines Programms 

LOAD 

Laden von Kassette 

LPRINT 

Ausdrucken eines Programms 

NEW 

Löschen des Programmspeichers 

NEXT 

Ende einer Wiederholung 

PAUSE 

Anhalten des Programms 

PLOT 

Zeichnen einer Gerade 

PRINT 

Bildschirmausgabe 

REM 

Kommentarzeile 

RETURN 

Ende eines Unterprogramms 

RUN 

Starten eines Programms 

SAVE 

Speichern auf Kassette 

SCROLL 

Rollen des Bildschirminhalts 

SLOW 

S1ow-Modus 

STOP 

Anhalten des Programms 

UNPLOT 

Löschen eines Geraden 
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TV-Computerspiele 


Von Herbert Bernstein, 208 
Seiten, 21 DM. 

Detaillierte Beschreibung 
der Hard- und Software für 
den Bau eines freiprogram¬ 
mierbaren Fernsehcompu¬ 
ters. Es sind dazu nur wenige 
Bausteine erforderlich, mit 
Platinenentwürfen, Stückli¬ 
sten, Abgleichvorschriften 
usw. Dieses System läßt sich 
beliebig erweitern und ist als 
intelligentes Fernsehspiel 
oder Heimcomputer einzuset¬ 
zen. Einfache Programmie¬ 
rung. 



BASIC COMPUTER SPIELE 
BAND 1 

David Ahl, 224 Seiten, 
32 DM 

Das Dorado für Spielpro¬ 
grammfans, jetzt in Deutsch. 
101 fantastische Mikrocom¬ 
puterspiele in Microsoft-BA- 
SIC mit Programmlisting und 
einem Spieldurchlauf sorgen 
für Freude aller Benutzer. 
Jede Kategorie ist mit einer 
größeren Zahl vertreten: 
Weltraum, Sport, Casinospie¬ 
le, Lx)gik- und Bildungsspiele. 
Programmänderungen für 
andere BASIC-Versionen 
werden in der Einführung er¬ 
läutert. 


DiKihil Hariiioiu 

()ii iIk' »it Musk 
aikJViNtMl \ri 




Digital Harmony - On the 
Complementary of Music 
and Visual Art 

John Whitney, 235 Seiten, 
72 DM (engl.) 

Die Computer verwirkli¬ 
chen einen alten Traum der 
Künstler: Bilder zu schaffen, 
die so aussehen, wie Musik 
klingt. Whitney schildert hier, 
wie seine Grafiken entstan¬ 
den sind. Er beschreibt seinen 
Computer, Peripherie, Film¬ 
technik, seine Programme, 
kurz alles, was zum Einstieg 
in diesen technisierten Zweig 
der Kunst nötig ist. Keinen 
Zweifel läßt er daran, daß er 
sich als Künstler, weniger als 
Programmierer versteht. 



Inside BASIC Games 

Richard Mateosian, 325 Sei¬ 
ten, 54 DM 

„Inside BASIC Games“ ist 
mehr als eine bloße Samm¬ 
lung von Computer-Spielen. 
Mateosian will dem Leser hel¬ 
fen, eigene Spielprogramme 
zu entwickeln und dabei na¬ 
türlich die BASIC-Kenntnisse 
zu vervollkommnen. Doch 
auch wer nur spielen will, 
kommt auf seine Kosten: 
Arithmetic Drill, Clock, Card 
Memory, Ten-Key Flicker, Ti¬ 
mer, Birthday, Match-Up 
oder Alien Encounter sind die 
Namen von Spielen, die der 
Autor selbst entworfen hat. 



6502 Games 

Rodnay Zaks, 292 Seiten, 
39 DM (in Englisch) 

Der Mikroprozessor 6502 
wird hier als elektronisches 
„Gehirn“ für zahlreiche Com¬ 
puterspiele verwendet. Zuerst 
als „Musik Player“. Mittels 
der Programmierung entste¬ 
hen verschiedene Musikstük- 
ke, die über Programmierta¬ 
sten abgerufen werden. Da¬ 
nach folgen „Translate“, 
„Hexguess“, „Magic Square“, 
„Spinner“, „Slot Maschine“, 
„Echo“, „Mindbender“, 
„Blackjack“ und „Tic-Tac- 
Toe“. Durch die Flußdia¬ 
gramme können die Pro¬ 
gramme für andere CPU um¬ 
geschrieben werden. 



BASIC COMPUTER SPIELE 
BAND 2 

David Ahl, 224 Seiten, 
32 DM 

Computerspiele gewinnen 
immer mehr Freunde. Dieser 
Folgeband bietet wieder eine 
Menge Spaß und Anregungen 
mit 84 brandneuen Spielen, 
ausgestattet mit den fantasie¬ 
vollsten Attributen: Mit „Ca- 
mel“ lernen Sie das Überle¬ 
ben in der Wüste, durch „Mil- 
lionaire“ erhalten Sie die Ge¬ 
legenheit, Ihr Leben noch ein¬ 
mal zu planen u.v.m. 


Bestellschein 

Bitte im frankierten Umschlag 
senden an 

VOGEL-BUCHVERTRIEB 

Postfach 67 40, 8700 Würzburg 


Stück 

Autor, Buchtitel 

DM 




















zuzügl. Versandspesen-Anteil 2.— DM 


Name 


PLZ. Wohnort 


Vorname 


Ort, Datum 




Straße, Haus-Nr. 


Unterschrift 
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Empfehlung: Coupon fotokopieren, damit Sie nichts zerschneiden müsseni 
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Wieviel Speicherplatz ein Programm ver¬ 
braucht hat, läßt sich leicht mit der Pro¬ 
grammzeile 

PRINT PEEK 16404+256*PEEK 16405-16384 
testen. 

Ein Programm läuft nach dem Laden von 
selbst ab, wenn man die letzten beiden 
Programmzeilen so aussehen läßt: 

9998 SAVE "Programmname" 

9999 RUN ( oder GOTO 1, wenn im Programm 
Variable Vorkommen, die durch RUN gelöscht 
werden würden). 

Diese Technik empfiehlt sich besonders, 
wenn im Programm Daten Vorkommen, die bei 
Verwendung von RUN oder CLEAR gelöscht 
werden würden. Dadurch, daß das Programm 
nach dem Ladevorgang von selbst beginnt, 
kann der Benutzer nicht versehentlich eine 
falsche Anweisung eintippen. Der letzte 
Buchstabe im Programmnamen erscheint dann 
invertiert. 

Die richtige Lautstärke des Kassettenrekor¬ 
ders beim Laden eines Programmes testet man 
am besten, indem man LOAD "XYZ" (oder eine 
andere beliebige Buchstabenkombination, die 
nicht der gewünschte Programmname ist) 


eintippt, das Band startet, dann die Laut¬ 
stärke so einstellt, bis die schwarzen 
Streifen schön gleichmäßig und breit am 
Bildschirm stehen, zurückspult und dann 
normal lädt. 

Verwenden Sie für Ihren ZX 81 auf keinen 
Fall Billigkassetten. Sie haben meist nicht 
die Laufruhe, die für eine ungestörte Pro¬ 
grammübertragung nötig ist. 

Wenn Sie ein längeres Programm schreiben 
wollen, beginnen Sie besser erst mit Zeile 
100, weil Sie dann noch genug Platz davor 
haben, um Variable zuzuweisen. 

Wenn Sie ein Programm schreiben, das eine 
Eingabe des Benutzers erfordert, prüfen 
Sie, ob Sie nicht statt INPUT INKEY$ 
schreiben können, da das wesentlich 
benutzerfreundlicher ist. 

Vermeiden Sie den Gebrauch von PAUSE (der 
Bildschirm flackert dabei nämlich kurz), 
sondern verwenden Sie besser eine Warte¬ 
schleife wie diese: 

10 FOR 1=1 TO 100 
20 NEXT I 
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SPIELE: 

4 Gejagd 
4 Jagd 

4 Sechs verliert 

5 Memo 

7 Nim-Spiel 
7 Ambassador 

11 Fallende Ziegel 

12 Anagram 

12 Kontoführung 
12 U-Boot 

15 Mensch ärgere Dich nicht 

19 Reaktionstest 

20 Minenfeld 

20 Multiplikationstabelle 
20 Lebenserwartung 

23 Mathematik-Test 

24 Abenteuer 
26 Golf 

26 Zahlenreihe 

27 Cube 

29 Simon 

30 Riesenbuchstaben 

30 Pferderennen 

31 Ski Sprung 

31 Mathematikübung 

32 Crunch 

32 A-Z Spiel 

32 Catch 

33 Hundert 

34 High-Low-Spiel 

34 Kristalle sammeln 

38 Vier in einer Reihe 

39 Rennfahrer 

40 Raumfahrt 

41 Roulette 

42 Vorsicht Schlange ! 

44 Muster 

45 Dschungel 

48 Labyrint 

49 17 und 4 

51 Roulette 13 


PROGRAMMIERUNG: 

53 Stopper 
53 Hex-Dez-Wandler 

53 READ, DATA und RESTORE 

54 Nummernsort 

54 Renumber 

55 Musikprogramm 

55 Alphabetisches Sortierprogramm 
55 Groß-/Kleinschreibung 


WISSENSCHAFT: 

57 ZX Taschenrechner 
57 Geordnete Paare und Tripel 


GRAFIK: 

61 Bleistift 

61 Säulengrafik 

62 Mit Cosinus und Sinus zum Erfolg 

63 Lissajous-Figuren 

64 Hochauflösende Grafik 

65 Kreisquad 

65 Digital 

66 Kreisel 
66 Schnecke 
66 Spirale 

66 Herz 

67 Bild 

67 Netz und Spinne 


HOBBY: 

68 Zinsenberechnung I 
68 Telefonregister 
70 Zinsenberechnung II 
72 Rechnungsprogramm 
74 Reisezeitrechner 

74 Morsecode 

75 Wallpaper 

76 Text-Editor 
79 Biorhythmus 
82 Eli za 

85 Mehrwertsteuerberechnung 

86 Samurai 


TECHNIK: 

90 Temperaturumwandlung 
90 Stopp-Uhr 

90 Blechabwicklung 

91 Benzinverbrauchsrechnung 

92 Bremswegkurve 

92 Widerstandsberechnung 

Serien- und Parallelschaltung von 

93 Widerständen 

94 WinkelUmrechnung 

94 Befehlssatz des ZX 81 

96 Tips und Tricks zur Programmierung 
des ZX 81 

98 Impressum 


Eine Publikation von CHIP 
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Milm>computer-(kiinAMissen 

Allgemeinverständliche Ein¬ 
führung in die Mikrocompu¬ 
ter-Technik 

Osborne, Adam, 300 Seiten, 
36 DM 

Deutsche Erstauflage eines 
Osborne-Bestsellers für Elek¬ 
tronikneulinge. Ohne großen 
Zeit- und Kostenaufwand 
kann im Selbststudium das 
Grundwissen erarbeitet wer¬ 
den. Nach sechs Lernschrit¬ 
ten beherrscht der Leser die 
Materie und kann mitreden, 
wenn es um den Mikrocom¬ 
puter geht. 


Mein erster Computer 

Rodnay Zaks, 304 Seiten, 
28 DM 

„Mein erster Computer“ ist 
die Übersetzung von „Your 
first Computer“. Es geht dar¬ 
um, was ein Mikrocomputer 
ist, wie er funktioniert und 
wofür er zu gebrauchen ist. 
Nach der Lektüre des Buches 
sind Sie selbst in der Lage zu 
entscheiden, ob ein Computer 
für Sie nützlich ist, welchen 
Rechner und welche Zube¬ 
hörgeräte Sie gegebenenfalls 
brauchen. Sie müssen weder 
Techniker sein noch Elektro- 
nikvorkenntnisse haben. 



Was der Mikrocomputer 
aiies kann 

Willis, Pohl, 360 Seiten, 
33 DM 

Für alle Einsteiger und 
Aufsteiger. Ohne unnötigen 
technischen Ballast, leicht 
faßlich und schnell verständ¬ 
lich, unterhaltsam und umfas¬ 
send. Genau das richtige 
Buch, um unkompliziert eine 
komplizierte Welt verstehen 
zu lernen. 

Einführung, CPU und 
Drumherum. Woraus Spei¬ 
cher bestehen, die Daten-Su- 
permärkte, sprechen mit dem 
Rechner, Interfaces, Grund¬ 
züge des Programmierens, 
Marktübersicht, Computer¬ 
spiele, kommerzielle Anwen¬ 
dung, Künstlerisches und 
Augen auf beim Kauf. 


CHkP 

WISSEN 


BvndPbi 

Mk man In BASK 
proBrammkrt 

6n*ClhfUiig TecMkan FdlMX*«« 


En 8ucti V <1 .CHtf? liar ZmIscMi 
- lUt M*nJca»npulw T«thni 


Wie man in BASIC 
programmiert 

Bernd Pol, 368 Seiten, 30 
DM. 

Ein Buch für Praktiker, 
und mehr als nur eine Einfüh¬ 
rung! An zwei bis ins Detail 
ausgearbeiteten Fallstudien 
werden die Grundlagen des 
Programmierens verdeutlicht 
und die wichtigsten BASIC- 
Bestandteile eingehend be¬ 
sprochen. Vor allem ; Wie ist 
ein Problem zu lösen? Warum 
ist das so formuliert? Wie 
wendet man Programmier¬ 
techniken mit BASIC an? Be¬ 
sondere Vorkenntnisse sind 
nicht nötig. 
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Programm "TEXT-EDITOR" 
Einfügungen von Seite 77 


3140 L£T Z$ (LR , Ch.j =1$ 

3150 PR Xt4T RT CL CC X $ 

3153 LET Hi=:pC4-3i 

3154 XF Hi>PCriRX THEN LET H1=PCH 
HX 


3150 IF M THEf4 PRINT hT CL.CC;Z* 
iLR..CR TO Hi) 

31T0 GOTO_ 

3200 REH _ 

3210 LET CL=CL-(LH>lj 
3223 IP CL<1 THEN GOTO 3413 
3233 GOTO 3302 
3253 RE H 

3250 LET CL=CL4 iLH<PLnRX) 

3270 XF CL>21 THE^4 GOTO 3453 
32S0 GOTO 3: 

3330 REM _ 

3310 XF PC=X RND CC=0 THEN RETUR 
N 


332© LET CC=CC-i 

3330 IF CC<0 ÜR (N RND CC<5j THE 
N GOTO 3550 
3-340 GÜT 

33F0 IF PC4-QQ > =PCHhX THEH RETURN 


33 70 L jz. I C U = U U + X 

3350 IF C O 3 1 THEN GOTO 3510 
3330 REM 

3322 PRINT HT 5CL .. 500.; Z^ (LR.. CR) 
3325 RETURN 
3400 REM US 
3410 LET H=i0 

3420 IF PL-H<1 THEN LET H=PL-1 

3430 LET PL=PL-H 

3435 LET CL=CL-f-H 

3440 goto 361 0 

3450 REM 

3450 LET H=10 

34701 XF PL+H>PLHhX THEN LET H=PL 
HRX-PL 

3450 LET PL=PLfH 
3455 LET CL=CL-H 


3490 
3500 
3510 
3520 
3540 
35^:»0 
3550 
■U -r- 0 
3590 
3500 
3610 
3615 
3615 
5617 
HX 

361S 

3619 
RX 

3620 
3630 
3640 
3650 
3660 


GOTO 3510 
REM 

LET PC=PC-hl5 
LET 00=00-15 
GOTO^Ej 
REH 

LET PO=PO-16 
LET 00=15 


Mm 


CL5 

PRINT 

LET H1=P04-31 
XF HIpPCMhX THEN LET 


H1=PCH 


LET H2=PL-?-20 

IF H2>PLMRX THEN LET H2=PLN 


FÜR H=PL TD H2 
PRINT Z$(H.PC TÜ Hl; 
NEXT H 

IF H=0 THEN GOTO 3690 
FÜR H=1 TÖ 21 


GOTO 5740 


3670 PRINT HT H.. 0 J 
PL+-H-1 
3650 r4EXT H 
RETU 
REM 

XF G=G THEN 
LET G=0 
RETURN 
LET G=125 
RETU RN 
P'tiM 

IF M THEN GOTO 3650 
LET H=1 

LET H $ = ^^ INSERT 


:HT 


^690 
3700 
3710 
3720 
3730 
U 7 4 03 
3750 
US00 
361© 
3620 
3630 
3640 
3650 
3660 
3070 
3900 
3910 
3920 
3950 
3960 
3970 
4 000 
4010 
402© 
4030 
404© 
4045 
405© 
4052 
O 3 
4055 
4057 
4050 
4070 
4060 
4090 
4100 
4110 
4120 
4130 
4140 
4145 
4150 
4 16© 
4170 
4175 
4160 
4135 
4190 
4200 
4210 
4 220 
4230 
4250- 
4260 
427© 
4275 
4230 
4290 
4300 
4310 
4320 
4340 
433© 


^0 


GOTO 36' 

LET M=0 
LE“ HS = ''CHRNGE'^ 
RETURN 


REM 

LET ^4=N = G 
RETU 
REM 

LET F=i 
RETURN 
REM 

FÜR H=1 
IF T (HJ 
NEXT H 
GGSU5 5260 
LET H=1 

LET CC=T<Hjr-PC 
IF OC<52 RND 00=0 
92 



GOTO 4050 


THEN GOT 



GOTO 

uc / u 


THEN GOTO 4130 


GOTO 4130 


5TEP -1 


LET Po = xrrr 
LET CC=T(H) 

GOTO 3510 
REM 
FOR 
XF T 
XF T 
Ir T 
NEXT 
RETURN 

XF H=20 THE^4 
LET H1=H 
FOR H=19 TO Hl 
LET T (H4 1) =T (H) 

NEXT H 
LET H=H1 
LET T (H> =CR 
RETURN 

FÜR H=H TO 19 
LET T (H) =T (H-hl j 
NEXT H 
LET T(20*/=O 
RETURN 
REM 
LET 00=0 

XF PO=l THEN GOTO 3 
LET PC=1 

XF CL<21 THEN G03US 
GOTO 3250 
REM 

LET CC=POnHX-PC 
1F C c < 0 DR O C > 31 

GOTO 3392 


/32> 432 41 


4 14 0 
4190 


250 

3610 


THEN GOTO 





















Für all jene, die die 
Faszination noch nicht 
verstehen, die eine selbst¬ 
entwickelte Computer ¬ 
g rafik auf einen ausübt, 
schreiben wir nicht nur da- 
rüber,was man damit macht, 
sondern vor allem wie man es 
macht. Der Knüller: 

Die komplette Anleitung für 
den Bau eines taschenrechner¬ 
gesteuerten DIN A4 Plotters , 
mit Schaltplan, Fotos, Skizzen; 
das ganze für rund 500,-DM 
realisierbar. Dazu heute be¬ 
reits mögliche Anwendungen im 
industriellen Bereich und das 
Neueste über Computer-Kunst . Zum 
Füttern Ihres eigenen Computers 
stellen wir Ihnen eine Reihe von 
Pro g rammen vor, bei denen auch 
Sie in Farben und Formen schwelgen 
können. 


CHIP und 
CHIP-SPECIAL 

gibt es im Zeitschriften-, 

Buch- und Elektronikfachhandel. 

In der Schweiz beim Verlag Thali AG, 

CH-6285 Hitzkirch. In Österreich beim 
Fachbuch-Center Erb, Amerlingstraße 1, A-1061 Wien 


CHIP Postfach 67 40 
D-8700 Würzburg 1 


Bitte senden Sie mir 
Expl. Computergrafik D 

f zum Preis von DM 24,-* (Ausland DM 30,-*) 
^ Lieferanschrift: 

^ Name,Vorname 


Straße,Postfach 


^ PLZ,Ort 

^ Datum,Unterschrift 

^ * zuzüglich Versandkostenanteil DM 3,50.Inlandspreise incl. Mwst. 


Fortsetzung 
einer erfolgreichen 

Reihe. 


CHIP 


SPECIAL IS 


Der zweite Sonderband 
für alle, die mehr über 
Faszination und Anwen¬ 
dungsbereiche der 

wissen 
wollen. 


Empfehlung: Coupon fotokopieren, damit Sie nichts zerschneiden müssen! 






















